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GENERAL ORIENTATION: THE METALANGUAGE 


A LANGUAGE USED TO TALK ABOUT A LANGUAGE IS A METALANGUAGE. THE 
NATURAL LANGUAGES ARE, IN FACT, METALANGUAGES; FOR EXAMPLE, THE 
METALANGUAGE ENGLISH IS USED TO TALK ABOUT THE RELATIONSHIP 
E=IR, I.E., VOLTAGE EQUALS THE PRODUCT OF CURRENT AND 
RESISTANCE. BACKUS NAUR FORM (BNF), A METALANGUAGE POPULARIZED 
BY ITS USE TO DESCRIBE THE SYNTAX OF ALGOL 60 IS USED TO 
DESCRIBE THE SYNTAX OF SDL. TO AVOID THE CONFUSION BETWEEN THE 
SYMBOLS OF THE METALANGUAGE AND THOSE OF THE LANGUAGE BEING 
DESCRIBED, BNF USES ONLY 4 METALINGUISTIC SYMBOLS. LITERAL 
OCCURRENCES. OF SYMBOLS, WITH NO BRACKET ING CHARACTERS, 
REPRESENT THEMSELVES AS TERMINAL SYMBOLS OF THE LANGUAGE. 


A GRAMMAR FOR SDL IS WRITTEN AS A SET OF BNF STATEMENTS, EACH OF 
WHICH HAS A LEFT PART, FOLLOWED BY THE METASYMBOL "::=" 

FOLLOWED BY A LIST OF RIGHT PARTS. THE LEFT PART IS A’ PHRASE 

NAME, AND THE RIGHT PARTS, SEPARATED BY THE METASYMBOL "/" ARE 

STRINGS CONTAINING TERMINAL SYMBOLS AND/OR PHRASE NAMES. 
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METASYMBOLS OF BNF 


leans ENGLISH EQUIVALENT USE 


S2= IS DEFINED AS SEPARATES A PHRASE NAME FROM 
ITS DEFINITION ; 
/ OR SEPARATES ALTERNATE DEF INITIONS 
| OF A PHRASE 


<IDENTIF IER> "IDENTIFIER" — THE BRACKETING CHARACTERS INDICATE 
: | THAT THE INTERVENING CHARACTERS 
ARE TO BE TREATED AS A UNIT, 

I.E., AS A PHRASE NAME 


NOTE: BNF ACTUALLY USES A VERTICAL BAR, RATHER THAN 
THE SLASH AS INDICATED ABOVE AS A’ SEPARATOR. 
HOWEVER, THE LINE PRINTER WHICH PRODUCES THIS 
DOCUMENT HAS NO VERTICAL BAR IN ITS CHARACTER 
SET. THEREFORE, A SLASH HAS BEEN USED 
THROUGHOUT TO SEPARATE ALTERNATE SYNTACTICAL 
DEFINITIONS. WHEN THE SLASH IS ACTUALLY PART 
OF THE SDL SYNTAX, IT WILL BE WRITTEN AS 
<SLASH>. 


EACH BNF STATEMENT IS A REWRITING RULE, SUCH THAT WE MAY 
SUBSTITUTE ANY RIGHT PART FOR ANY OCCURRENCE OF ITS ASSOCIATED 
LEFT PART; AND WE HAVE A CHOICE OF RIGHT PARTS WHICH WE MAY 
SUBSTITUTE. THE FOLLOWING EXAMPLE SPECIFIES THE USE OF THESE 
RULES TO DETERMINE THOSE STRINGS WHICH ARE GRAMMATICALLY 
CORRECT IDENTIFIERS IN SDL. 


<LETTER> i: KI BLOCTOCPEPRE SEPGULTP SLR GCE MS 
N/O/SP/SQSR/ISSTSUIVIWIXSYIZ 

<DIGIT> ::=) OFT PORSENCSIELTIETS 

<DOT> ::= 

CIDENTIFIER> ::=  <LETTER> 


/ <IDENTIFIER> <LETTERD 
/ <IDENTIFIER> <DIGIT> 
/ <IDENTIFIER> <DOT> 


XYZ12.B4 IS A PROPER SDL <IDENTIFIER> SINCE IT CAN BE GENERATED 
AS A TERMINATING SET OF SYMBOLS BY USING THE BNF RULES... 


1=3 


<IDENTIF IER> 

<IDENTIFIER> <DIGIT> 
<IDENTIFIER> <LETTER> 4 
<IDENTIFIER> <DOT> BY 
<IDENTIFIER> <DIGIT> .BY4 
<IDENTIFIER> <DIGIT> 2.BY4 
<IDENTIFIER> <LETTER> 12.B4 
<IDENTIFIER> <LETTER> Z12.BY4 
<LETTER> YZ12.B4 

XYZ12.B4 


NOTICE THAT THE BNF RULES DO NOT, IN ANY WAY, LIMIT THE NUMBER © 
OF LETTERS, DIGITS, AND DOTS WHICH COMPRISE THE <IDENTIFIERD. 

IN SUCH CASES, FURTHER SEMANTIC RULES WILL BE SPECIFIED; E.G., 
AN SDL <IDENTIFIER> IS LIMITED TO A MAXIMUM OF 63 CHARACTERS. 
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IN ORDER TO UNDERSTAND SDL GRAMMAR, THE USER SHOULD BE FAMILIAR 


BASIC COMPONENTS OF THE SDL LANGUAGE 


— awe ee eee oem cow cw come GE Gm GE SUP Gm GNP Ee we Gum ED gee SE ee ae GE Ge EP ones a Gm eu GoD ae ae GSD eee ee 


WITH THE MOST BASIC ELEMENTS OF THE SDL LANGUAGE 
<DIGIT> ::= Ow bP ef wiee: of B 
<LETTER>D ::= A/B/C/DSs 


<SPECIAL CHARACTERD>D ::= 


<AMPERSAND> 


<SLASH> 


<BLANK> 


NOTE: 


<IDENTIFIER>D ::= 


RESTRICTION 


]. 


eae 


<AMPERSAND> / . 
/GBsl rl rss 
/ <SLASH> / [ 


~ 
I 


BELOW. 


/ 


/ 


SN HN 


9 


RSM FL 


- f , f/w/ § 


/+/ ( 
<BLANK> 


<BLANK > IS THE OCCURENCE OF ONE NON-VISIBLE 


CHARACTER " ", 


/ <IDENTIFIER> <DOT> 


S:; 


AN IDENTIFIER MUST BEGIN WITH A LETTER. 


AN IDENTIFIER MAY NOT CONTAIN BLANKS. 


AN IDENTIFIER MAY CONTAIN A MAXIMUM OF 63 


CHARACTERS. 


EXCEPT FOR SEGMENT AND GROUP IDENTIFIERS, 
RESERVED WORDS MAY NOT BE USED AS IDENTIFIERS. 
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/ 


) 


<LETTER> / <IDENTIFIER> <LETTERD 
/ <IDENTIFIER> <DIGIT> 


/ 


% 


"SPECIAL" WORDS MAY BE USED FOR SEGMENT AND 


-DO-GROULP <IDENTIFIER>S WITHOU, LOSING THEIR 


SPECIAL SIGNIFICANCE IN SDL. 


IN ALL OTHER CASES, "SPECIAL" WORDS MAY BE 
USED AS IDENTIFIERS, HOWEVER, THEY LOSE THEIR 
SPECIAL SIGNIFICANCE THROUGHOUT THE ENTIRE 
PROGRAM WHEN DECLARED AT LEXIC LEVEL 0. WHEN 
DECLARED AT ANY GREATER LEXIC LEVEL, THEY ONLY 
LOSE THETR SPECIAL MEANING WITHIN THE 


PROCEDURE. IN WHICH THEY ARE DECLARED. 


<DOT> ::= 


(ALSO SEE "BASIC STRUCTURE OF THE SDL PROGRAM" 
AND "APPENDIX III") 


<COMMENT STRING) ::= <SLASH>* <COMMENT TEXT> *<SLASHD 


RESTRICTIONS: 


1. 


THE PAIR /* PRECEDING THE <COMMENT TEXT> MUST 
APPEAR AS ADJACENT SYMBOLS. SIMILARILY, THE 
PAIR */ FOLLOWING THE <COMMENT TEXT> MUST ALSO 
APPEAR AS ADJACENT SYMBOLS. 


<COMMENT TEXT> ::= <EMPTY> 


<EMPTY> 


NOTE: 


/ <COMMENT TEXT CHARACTER> 
/ <COMMENT TEXT CHARACTER> 
<COMMENT TEXT> 


<EMPTY> IS THE NULL SET OR THE OCCURENCE OF 
NOTHING. 


<COMMENT TEXT 


CHARACTER> ::= <DIGIT> 
/ <LETTER> 
/ <SPECIAL CHARACTER> 
;"/@/ es 
<CARD TERMINATOR> ::= x 


RESTRICTIONS: 


1. 


A %& IS TREATED AS ANY OTHER STRING CHARACTER 
IF IT IS CONTAINED WITHIN A <CHARACTER STRING> 
OR IN <COMMENT TEXT>. HOWEVER, IN ALL OTHER 
CASES, A & WILL CAUSE THE SCANNING OF THE 


CURRENT SOURCE IMAGE TO TERMINATE, AND CAUSE 


SCANNING TO CONTINUE IN THE NEXT SOURCE IMAGE. 


<NUMBER>D ::= 


<BINARY DIGIT> 


<BINARY DIGITS> 


<QUARTAL DIGIT> 


<QUARTAL DIGITS> 


<OCTAL DIGIT> 


<OCTAL DIGITS> 
<HEX DIGIT> ::= 


<HEX DIGITS> 


<BIT GROUP>::= 


<BIT STRING)::: 


<BITS>::= 


NOTE: 


~ 


“eS 


<DIGIT> / <NUMBER> <DIGIT> 

RANGE OF SIGNED NUMBERS -(2 EXP 23) TO 
(2 EXP 23)-1. RANGE OF UNSIGNED 
NUMBERS 0 TO (2 EXP 24)-1. 

0 / 1 / COMMENT STRING> 


<BINARY DIGIT> 
<BINARY DIGITS> <BINARY DIGIT> 


<BINARY DIGIT> / 2 / 3 


<QUARTAL DIGIT> 
<QUARTAL DIGIT> <QUARTAL DIGITS> 


<QUARTAL DIGIT> / 4/5 /6/7 


<OCTAL DIGIT> 
<OCTAL DIGITS> <OCTAL DIGIT> 


<OCTAL DIGIT> 
B/O9/A/SB/C/D/SESE 


<HEX DIGIT> 
<HEX DIGITS> <HEX DIGIT> 


(4) <HEX DIGITS> 

(3) <OCTAL DIGITS> 
(2) <QUARTAL DIGITS> 
(1) <BINARY DIGITS> 


@<BITS>®@ 


<BIT GROUP> / <HEX DIGITS> 
/ <BITS> <BIT GROUP> 
/ <EMPTY> 
RESTRICTIONS: 
io IF NO BIT MODE IS SPECIFIED (IE. THE INDICATOR - 
DIGIT IN PARENTHESES IS OMITTED). "HEX" IS 
ASSUMED. THIS CAN ONLY BE ASSUMED IF THE BIT 
STRING DOES NOT START WITH A MODE INDICATOR; 
WHEN IHE MODE IS SWITCHED TO "HEX", AN 
EXPLICIT "(4)" IS REQUIRED. 
: AS NOTED ABOVE, A <COMMENT STRING> MAY APPEAR 


ANYWHERE WITHIN A <BIT STRING>, BUT NOT WITHIN 
THE PARENTHESES BOUNDING THE INDICATOR DIGIT. 


- THE PRESENCE OF A <COMMENT STRING> WILL, IN NO 


WAY, ALTER THE VALUE OF THE <BIT STRING> 
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CONTAINING IT. 
~ EXAMPLE: 


- @©(3)6330316260/+ THIS */313230/* IS */63302560/* THE */ 
4321626360/* LAST */512523465124/* RECORD */@ 


<STRINGD :: 


= <CHARACTER STRING> 
/ <BIT STRING> — 
<CHARACTER STRING> ::= _ "<STRING CHARACTER LIST>" 
<STRING CHARACTER LIST> ::= <EMPTY> 
/ <STRING CHARACTER> | 
<STRING CHARACTER LIST> 
<STRING CHARACTER> ::= <DIGIT> / <LETTER> / <SPECIAL CHARACTER? 
/""7@s#/ 
RESTRICTIONS: 
ic IF 4 QUOTE SIGN IS DESIRED IN A CHARACTER 


STRING, THEN TWO ADJACENT QUOTE — SIGNS MUST 
APPEAR IN THE TEXT. 


EXAMPLE: DECLARE STRING CHARACTER (6); 
QUOTE CHARACTER (1) 
STRING« "AB" "CDE"; 
QUOTE ~ Ue ; 


AFTER EXECUTION, STRING WILL CONTAIN: AB" CDE, 
AND QUOTE WILL CONTAIN: ". © 


NOTE: A <CHARACTER STRING> MAY CONTAIN A Henn OF 
e56 CHARACTERS. 


~ €CONSTANT> ;::= <NUMBER> / <STRING> / TODAYS.DATE 
/ SEQUENCE .NUMBER 
/ HEX.SEQUENCE .NUMBER 


NOTE: "TODAYS.DATE" REPRESENTS THE DATE AND TIME OF 
COMPILATION OF THE PROGRAM. IT IS THE SAME AS 
THE DATE AND TIME APPEARING AT THE TOP OF THE 
PROGRAM LISTING. IT IS A CHARACTER STRING WITH 
THE FOLLOWING FORMAT -- 
"MM/DD/YY HH:MM" 


NOTE: “SEQUENCE .NUMBER" REPRESENTS A <CHARACTER 
STRING> OF 8 CHARACTERS WHICH IS THE SEQUENCE 
NUMBER OF THE CURRENT SOURCE IMAGE BEING 
CONPILED.. | , . 


"HEX. SEQUENCE .NUMBER" REPRESENTS A BIT STRING 


OF 8 (HEX) DIGITS WHICH IS THE SEQUENCE NUMBER 
OF THE CURRENT SOURCE IMAGE LINE BE ING 
COMPILED. IF THIS SEQUENCE FIELD IS BLANK, 
THEN HEX.SEQUENCE.NUMBER = @00000000e. 


IF THE CURRENT SOURCE IMAGE LINE SEQUENCE 
NUMBER IS 12753000, THEN ON THIS LINE: 


SEQUENCE .NUMBER = "12753000" 
HEX .SEQUENCE .NUMBER = 127530009 
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eno 


BASIC STRUCTURE OF THE SDL PROGRAM 


<PROGRAM> ::= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
<EXECUTABLE STATEMENT LIST? 
FINI 


<DECLARATION STATEMENT 
LIST> ::= <EMPTY> 
/ <DECLARATION STATEMENT > 
<DECLARATION STATEMENT LIST> 


<DECLARATION STATEMENT> ::= <DECLARE STATEMENT); 

/ <DEFINE STATEMENT >; 

/ <FILE DECLARATION STATEMENT >; 

/ <SWITCH FILE DECLARATION 
STATEMENT >; 

/ <FORWARD DECLARAT ION> 

/ <USE STATEMENT); 

/ <SEGMENT STATEMENT > 
<DECLARATION STATEMENT > 


<PROCEDURE STATEMENT 
LIST> ::= <EMPTY> 
/ <PROCEDURE STATEMENT >; 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE STATEMENT> ::= <PROCEDURE DEF INITION> 
/ <SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<EXECUTABLE STATEMENT | 
LIST ¢2= <EXECUTABLE STATEMENT > 
/ <EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT LIST> 


<EXECUTABLE STATEMENT> ::= <DO GROUP > ; 

<IF STATEMENT > 

<CASE STATEMENT>; 

<ASSIGNMENT STATEMENT >; 
<EXECUTE-PROCEDURE STATEMENT >; 
<EXECUTE-FUNCTION STATEMENT > ; 
<GROUP TERMINATION STATEMENT); 
<1/0 CONTROL STATEMENT > 
<MODIFY INSTRUCTION); 

<NULL STATEMENT > 

<STOP STATEMENT >; 

<FILE ATTRIBUTE STATEMENT >; 
<SEND STATEMENT > 

<RECEIVE STATEMENT > 

<ACCESS FILE HEADER STATEMENT> 


Mm NR RRR RRR RR 
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<SEARCH STATEMENT> | 

<ZIP STATEMENT > 

<ARRAY PAGE TYPE STATEMENT> 
<COROUTINE STATEMENT > 

C<WAIT STATEMENT > ; 

<SEGMENT STATEMENT > 
<EXECUTABLE STATEMENT> > 


~~ ER R 


A PROGRAM, WRITTEN IN SDL, MUST FOLLOW THE SEQUENTIAL STRUCTURE 
DESCRIBED IN THE ABOVE SYNTAX. THAT IS, THE EXECUTABLE SECTION 
OF THE PROGRAM MAY NOT APPEAR UNTIL ALL PROCEDURES HAVE BEEN 
DEFINED, AND PROCEDURES MAY NOT BE DEFINED BEFORE THE FORMATS 
OF DATA ITEMS (VARIABLES, ARRAYS, ETC.) HAVE BEEN DECLARED. 
"FINI" MUST PHYSICALLY OCCUR AS THE FINAL STATEMENT IN’ THE 
PROGRAM. | | : 


THE PROCEDURE STATEMENT, (INCLUDING DECLARATION, PROCEDURE, AND 
EXECUTABLE STATEMENTS), IS THE BASIC STRUCTURE IN SDL. AN SDL 
PROGRAM IS A COLLECTION OF PROCEDURES, EACH OF WHICH CAN BE 
DESCRIBED FOR CONCEPTUAL PURPOSES AS A MICROCOSM OF THE 
PROGRAM. ANY GIVEN PROCEDURE MAY CONTAIN A COLLECTION OF OTHER 
PROCEDURES WITHIN ITSELF. THIS PROCESS IS KNOWN AS) "NESTING". 


THE "LEXICOGRAPHIC LEVEL" OF ANY STATEMENT IN THE PROGRAM IS 
EQUAL TO THE NUMBER OF PROCEDURES IN WHICH IT IS NESTED. THE 
PROGRAM ITSELF WILL ALWAYS BE LEXIC LEVEL 0, AND: NO PROCEDURE 
MAY HAVE A LEXIC LEVEL GREATER THAN 15. THE DIAGRAM IN’ FIGURE 
1 ILLUSTRATES PROCEDURE NESTING AND LEXIC LEVELS. 


IT IS IMPORTANT TO UNDERSTAND THE RELATIONSHIPS BETWEEN THESE 
NESTED PROCEDURES. AS FIGURE 1. INDICATES, THE NAME OF ANY 
GIVEN PROCEDURE IS CONTAINED IN THE PROCEDURE IN WHICH IT IS 
NESTED AT THE NEXT LOWER LEXIC LEVEL. FOR EXAMPLE, PROCEDURE D 
IS A LEXIC LEVEL @ PROCEDURE, HOWEVER, ITS NAME, "D", IS PART 
OF LEXIC LEVEL 1. 


THE "SCOPE" OF ANY GIVEN PROCEDURE IS RECURSIVELY DEFINED AS: 


1) THE PROCEDURE ITSELF, 
2) ANY PROCEDURE(S) NESTED WITHIN THE PROCEDURE, 
3) ANY PROCEDURE (AND ITS NESTED PROCEDURES) 


WHOSE NAME APPEARS AT THE SAME LEXIC LEVEL AND 
WITHIN THE SAME PROCEDURE AS ITS OWN NAME, AND 


u) THE PROCEDURE IN WHICH ITS OWN NAME IS 
DEFINED. 


3-3 


IN FIGURE 1., ONE CAN SEE THAT THE SCOPE OF PROCEDURE B 
INCLUDES: | 


1) ITSELF, I.E., PROCEDURE B 
2) THE NESTED PROCEDURES WITHIN B (C AND D), 
3) THE OTHER PROCEDURES DEFINED AT LLO: E- (AND 


ITS NESTED PROCEDURES F AND G) AND PROCEDURE 
H (AND ITS NESTED PROCEDURES J, K, L, M, N, 
AND P. 


Ly ) THE PROCEDURE WHICH DEFINES B, IN THIS CASE, 
THE PROGRAM A. 


NOTE: ALL THE LEXIC LEVEL 0 PROCEDURES HAVE SCOPE TO 
EACH OTHER. THIS OCCURS BECAUSE OF RULE + 
ABOVE, WHEREIN THE PROGRAM ITSELF 1S THOUGHT 
TO BE A "PROCEDURE". 


IN THE SAME MANNER, THE SCOPE OF PROCEDURE J INCLUDES J, K, L, 
M, N, P, AND H. 


BY UNDERSTANDING THE RELATIONSHIPS BETWEEN THE VARIOUS 
PROCEDURES, IT IS POSSIBLE TO DETERMINE WHICH PROCEDURES MAY BE 
INVOKED BY ANY GIVEN PROCEDURE. SDL HAS BEEN DEFINED SO THAT 
ANY PROCEDURE X MAY CALL OR INVOKE ANY PROCEDURE Y, IF THE 
SCOPE OF Y ENCOMPASSES X. 


IN FIGURE 1., PROCEDURE J MAY CALL PROCEDURES J,K,L,M,H,E, AND 
B BECAUSE EACH OF THESE CONTAINS J IN ITS SCOPE. 


NOTE: J CANNOT CALL THE PROGRAM A SINCE THE NAME OF 
THE PROGRAM, IF THERE IS ONE, EXISTS OUTSIDE 
THE PROGRAM AND IS, THEREFORE, NOT COMPILED; 
HOWEVER, J MAY ACCESS THE DATA CONTAINED IN A 
(I.E., Al, A@, AS, AND AY). 


FIGURE 2 SHOWS THE RELATIONSHIP BETWEEN SCOPE AND CALLING 
ABILITY FOR PROGRAM A. 
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PROGRAM A 

DECLARE Al, A2, A3, AY; 

PROCEDURE B; | 

DECLARE BI, Be, B3; 

PROCEDURE C; 
DECLARE C1, Ce, C3; 
EXECUTABLE STATEMENTS; 
END C; | 


PROCEDURE D; 


EXECUTABLE STATEMENTS; | 
END D;. 


EXECUTABLE STATEMENTS; 
END B; 

PROCEDURE E; | 

DECLARE E1, Ee; 


PROCEDURE F; 


.| DECLARE Fl, Fe, F3; 
EXECUTABLE STATEMENTS; 
END F; 


PROCEDURE G;. 
DECLARE G1, Ge; 
EXECUTABLE STATEMENTS; 
END G; 

EXECUTABLE STATEMENTS; 

END E; 

DECLARE H1, He, H3, H4; 

PROCEDURE JU; 
PROCEDURE K; 


| 


PROCEDURE L; 


LLo LL 


PROCEDURE M; 
PROCEDURE N; 


= 


PROCEDURE 


PROCEDURE _P; 


EXECUTABLE STATEMENTS; 
| FINI . 


* LL = LEXICOGRAPHIC LEVEL 


FIG 1. PROCEDURE NESTING 


PROCEDURE 


SCOPE 


CALLING PROCEDURES 


A B C DE F GH JK LM N P 


NOTE: TO FIND THE SCOPE OF A PROCEDURE, FIND’ THE 
PROCEDURE IN THE COLUMN OF PROCEDURE NAMES. 
THE HORIZONTAL ROWS TO THE RIGHT INDICATE THE 
PROCEDURES IN ITS SCOPE. THE PROCEDURES WHICH 
MAY BE CALLED BY A GIVEN PROCEDURE ARE MARKED 
IN THE VERTICAL COLUMNS BELOW THAT CALLING 
PROCEDURE . 


FIG 2. SCOPE AND CALLING ABILITY 
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SEGMENT STATEMENT 


<SEGMENT STATEMENT> ::4 SEGMENT (<SEGMENT IDENTIFIERD) ; 
/ SEGMENT.PAGE (<SEGMENT IDENTIFIER> 
OF <PAGE IDENTIFIER) ; 


<SEGMENT IDENTIFIER>D ::= <IDENTIFIER> 


<PAGE IDENTIFIER> ::= <IDENTIFIER> 


AS THE BNF INDICATES, THE <SEGMENT STATEMENT> MAY OCCUR ANYWHERE 
WITHIN AN SDL PROGRAM. ITS PURPOSE IS TO REDUCE THE CORE 

REQUIREMENT OF THE PROGRAM BY ALLOWING SEGMENTS TO OVERLAY EACH 

OTHER. 


THERE IS A MAXIMUM OF 16 PAGES WITH 64 SEGMENTS PER PAGE. THE 
SEGMENT NAMES REPRESENT A PAGE NUMBER-SEGMENT NUMBER PAIR. 


IT IS ONLY NECESSARY TO SPECIFY SEGMENT.PAGE ONCE FOR EACH PAGE. 
EVERY SUBSEQUENT SEGMENT WILL BE COMPILED TO THAT PAGE UNTIL 
ANOTHER SEGMENT.PAGE IS ENCOUNTERED. 


IF THERE ARE NO SEGMENT.PAGE SPECIFICATIONS, ALL SEGMENTS WILL 
BE COMPILED TO PAGE ZERO, AND THERE MAY BE NO MORE THAN 64 
SEGMENTS TOTAL. IF A PROGRAM IS TO BE SEGMENTED, THE FIRST 
STATEMENT MUST BE A <SEGMENT STATEMENT>. OTHERWISE A WARNING 
MESSAGE WILL APPEAR IN THE SOURCE LISTING. 


THERE ARE TWO TYPES OF SEGMENTS: "PERMANENT" AND "TEMPORARY". 
EVERY STATEMENT FOLLOWING A PERMANENT <SEGMENT STATEMENT) WILL 
BE COMPILED TO THAT SEGMENT UNTIL ANOTHER <SEGMENT STATEMENT > 
IS READ. NON-CONSECUTIVE STATEMENTS MAY BE COMPILED TO THE SAME 
SEGMENT BY USING THE SAME <SEGMENT IDENTIFIER>. NOTE, HOWEVER, 
THAT <DO GROUP>S (SEE "DO GROUPS") AND PROCEDURES MUST END IN 
THE SAME SEGMENT IN WHICH THEY BEGIN. 


THE FOLLOWING EXAMPLE ILLUSTRATES THE USE OF THE "PERMANENT" 
<SEGMENT STATEMENT>. 
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SEGMENT (XX); 

DECLARE Al, Ae, A3, AY; 

PROCEDURE B; 
DECLARE Bl, Be, B3; 
SEGMENT (YY) ; 
PROCEDURE C;_ 


END C; 
PROCEDURE D; — 


END D; 
SEGMENT (XX); 


END B; 


FINI 


ONLY PROCEDURES C AND D HAVE BEEN COMPILED TO THE SEGMENT 


yy P 
SEGMENT "XX" IS SEGMENT ZERO AND INCLUDES EVERYTHING ELSE. | 


A <SEGMENT STATEMENT> IS TREATED AS "TEMPORARY" ONLY WHEN IT 
PRECEDES A "SUBORDINATE EXECUTABLE STATEMENT" WITHIN ANY OF THE 
FOLLOWING STATEMENTS: — 


<ACCESS FILE HEADER STATEMENT > 
<CASE STATEMENT > 

CIF STATEMENT > 

<READ STATEMENT > 

<RECEIVE STATEMENT > 


<SEARCH DIRECTORY STATEMENT > 
<SEND STATEMENT > 

<SPACE STATEMENT > 

<WRITE STATEMENT > 

<OPEN STATEMENT > 


IN THESE SPECIFIC CASES, THE SEGMENT CHANGE APPLIES ONLY TO THE 


SUBORDINATE STATEMENT FOLLOWING IT. FOR EXAMPLE, THE SYNTAX FOR 
THE <IF STATEMENT> COULD BE WRITTEN AS FOLLOWS: 


<IF STATEMENT) ::= IF <EXPRESSION 
THEN <SUBORDINATE EXECUTABLE STATEMENT > 

/ TF <EXPRESSION> 
THEN <SUBORDINATE EXECUTABLE STATEMENT > 
ELSE <SUBORDINATE EXECUTABLE STATEMENT) | 
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THE SEGMENTATION OF A HYPOTHETICAL <IF STATEMENT> IS PRESENTED 
BELOW TO ILLUSTRATE THE USE OF A_ "TEMPORARY" <SEGMENT 
STATEMENT>. 


SEGMENT (A); 
PROCEDURE X; 


IF YOZ THEN Y:=Z; ELSE 
SEGMENT (B) ; 
DO SOME .FUNCTION; 


* * K * 


END SOME .FUNCT ION; 


Z := C+D 
END X; 


* COMPILED TO SEGMENT (B) 
BECAUSE THE <DO GROUP>, "SOME.FUNCTION", IS A SUBORDINATE 
<EXECUTABLE STATEMENT> IN THE <IF STATEMENT>, SEGMENT (B) 


AUTOMATICALLY ENDS WHEN THE <DO GROUP> [S TERMINATED. ALL 
STATEMENTS FOLLOWING ARE COMPILED TO SEGMENT (A). 


NOTICE THE DISTINCTION BETWEEN SEGMENT (A), A "PERMANENT" 
<SEGMENT STATEMENT>, AND SEGMENT (B), A "TEMPORARY" ONE. 
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DECLARATION STATEMENT 


DATA TYPES 


THREE MAIN TYPES OF DATA FIELDS MAY BE DECLARED IN SDL: 


1) BIT 
eC) CHARACTER 
3) FIXED 


A BIT FIELD CONSISTS OF A NUMBER OF BITS SPECIFIED BY A NUMBER 
IN PARENTHESES FOLLOWING THE RESERVED WORD "BIT". THE FIELD MAY 
BE A MAXIMUM OF 65535 BITS. 


A CHARACTER FIELD IS A NUMBER OF CHARACTERS, 8 BITS EACH, 
SPECIFIED BY A NUMBER IN PARENTHESES FOLLOWING THE RESERVED 
WORD "CHARACTER". THE FIELD MAY BE A MAXIMUM OF 8191 
CHARACTERS. | 


A FIXED DATA FIELD IS A @4-BIT SIGNED NUMERIC FIELD WHERE THE 
HIGH ORDER BIT IS INTERPRETED AS THE SIGN. NEGATIVE NUMBERS ARE 
REPRESENTED IN e@-S COMPLEMENT FORM. 


THE RANGE OF SIGNED NUMBERS (1.E., FIXED DATA FIELDS) IS -(e EXP 
23) TO (2 EXP 23)-1. THE RANGE OF UNSIGNED NUMBERS (BIT DATA 
FIELDS) 1S 0 TO (2 EXP 24)-1. BIT FIELDS, AS NOTED ABOVE, ARE 
NOT RESTRICTED TO 24 BITS. HOWEVER, FOR ARITHMETIC PURPOSES, 
ONLY THE LOW-ORDER 24 BITS WILL BE CONSIDERED. 
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DECLARE STATEMENT 


<DECLARE STATEMENT> ::= DECLARE <DECLARE ELEMENT > 
/ <DECLARE STATEMENT>, <DECLARE ELEMENT > 


<DECLARE ELEMENT> ::= <DECLARED PART> 

<TYPE PART> | 

/ <STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART> 

/ DYNAMIC <SIMPLE IDENTIFIERD> 
<DYNAMIC TYPE PART> 

/ PAGED <ELEMENTS-PER-PAGE PART> 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART> 


THE <DECLARE STATEMENT > SPECIFIES THE ADDRESSES AND 
CHARACTERISTICS OF CONTENTS OF CORE STORAGE AREAS. 


ANY NUMBER OF <DECLARE ELEMENT>S MAY BE DECLARED IN ONE <DECLARE 
STATEMENT>, AND MUST BE SEPARATED BY COMMAS. BEST CODE IS 

GENERATED IF ALL ELEMENTS ARE DECLARED WITHIN ONE <DECLARE 

STATEMENT>. (SEE APPENDIX VII). 


THE MAXIMUM NUMBER OF DATA ELEMENTS (INCLUDING FILLERS, DUMMYS, 
AND IMPLICIT FILLERS) CONTAINED IN ONE STRUCTURE VARIES AS TO 
THE COMPILIER BEING USED, (CURRENTLY 50 - SMALL VERSION, 75 - 
LARGE VERSION). ANY ATTEMPT TO DECLARE MORE WILL CAUSE A TABLE 
OVERFLOW ERROR TO BE DETECTED AT COMPILE TIME. 


AN ARRAY MAY HAVE A MAXIMUM OF 65535 ELEMENTS, EACH BEING A 
MAXIMUM OF 65535 BITS (8191 CHARACTERS). 


THE FIVE TYPES OF <DECLARE ELEMENT>S ARE EACH DISCUSSED BELOW. 
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~ NON- ~STRUCTURED DECLARATIONS 


<DECLARE ELEMENT> ::= <DECLARED PART> 
<TYPE PART>/... 


<DECLARED PART> ::= <COMPLEX IDENTIFIER 
/ (<COMPLEX IDENTIFIER LIST>) 
/ <COMPLEX IDENTIFIER> REMAPS 
<REMAP IDENTIFIER> 


<COMPLEX IDENTIFIER a et | 
LIST> ::= <COMPLEX IDENTIFIER>D 
—  /¢ COMPLEX IDENTIFIERD, 

<COMPLEX IDENTIFIER LIST> 


<COMPLEX IDENTIFIER> ::= <SIMPLE IDENTIFIER> 
/ <ARRAY IDENTIFIER> <ARRAY BOUND> 


SIMPLE IDENTIFIER> ::= © <IDENTIFIER> 


<ARRAY IDENTIFIERD CIDENTIF IER> 


~<ARRAY BOUND> (<NUMBER >) 


<REMAP IDENTIF IER> 


BASE 
/ <SIMPLE IDENTIF IER> | 
/ S<ARRAY IDENTIFIERD> 


<TYPE PART> ::= FIXED 
/ CHARACTER <FIELD SIZE> 
/ BIT <FIELD SIZE> 


<FIELD SIZE> ::= (<NUMBER> ) 


DATA MAY BE DECLARED AS SIMPLE, HAVING ONE OCCURRENCE, OR AS 
SUBSCRIPTED, HAVING AS MANY OCCURRENCES AS SPECIFIED BY THE 
<ARRAY BOUND>. | | 7 , > oe 


THE <TYPE PART> SPECIFIES THE TYPE OF DATA IN THE FIELD AND THE 
FIELD SIZE. 


AS THE SYNTAX INDICATES, DIFFERENT DATA FIELDS HAVING THE SAME 
FORMAT MAY BE DECLARED COLLECTIVELY AS A <COMPLEX IDENTIFIER 
Lol . | | 
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THE FOLLOWING EXAMPLES ILLUSTRATE THE VARIOUS OPTIONS AVAILABLE 
IN THIS TYPE OF <DECLARATION STATEMENT>. 


DECLARE A FIXED, 
B CHARACTER (10), 
C BIT (40), 
(D, E, F (5)) BIT (10), 
G (20) FIXED, 
H (5) CHARACTER (6); 


WHE RE 
Is A IS A e4 BIT SIGNED NUMERIC FIELD. 
es B IS A 10 BYTE CHARACTER FIELD. 
Ss C 1S A 4O BIT FIELD. 
oe D AND E ARE 10-BIT FIELDS EACH. 
Ds F IS ALSO A 10-BIT FIELD AND OCCURS 5 TIMES. 
6. G OCCURS 20 TIMES AND IS A e24-BIT SIGNED 
NUMERIC FIELD. 
as H IS A 6-BYTE CHARACTER FIELD OCCURRING 5 


TIMES. 


DATA FIELDS MAY BE RE-FORMATTED BY THE USE OF THE REMAPPING 
DEVICE: 


<COMPLEX IDENTIFIER> REMAPS <REMAP IDENTIFIER> <TYPE PART> 


REMAPPING IS SUBJECT TO THE SAME GENERAL RULES DISCUSSED ABOVE. 
THE FOLLOWING EXAMPLE BEST ILLUSTRATES ITS USE. 


A FIXED, B BIT (50), 
AA REMAPS A CHARACTER (3), 
BB(e2) REMAPS B FIXED; 


NOTE THAT BB SPECIFIES 48-BITS (OR e@ ELEMENTS, e4-BITS EACH). 
THE LAST TWO BITS WILL BE CONSIDERED AS AN IMPLIED FILLER BY 
THE COMPILER. A FIELD MAY NOT BE REMAPPED LARGER THAN ITS 
ORIGINAL SIZE. | 


THERE [S NO LIMIT ON THE NUMBER OF TIMES A FIELD MAY BE 
REMAPPED. A FIELD WHICH HAS REMAPPED ANOTHER MAY ITSELF BE 
REMAPPED. THE REMAP OPTION SPECIFIES THAT THE IDENTIFIER ON THE 
LEFT SIDE OF THE RESERVED WORD "REMAPS" WILL HAVE THE SAME 
STARTING ADDRESS AS THE IDENTIFIER ON THE RIGHT SIDE. 
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FOR RULES CONCERNING THE REMAPPING OF DYNAMIC OR FORMAL 
DECLARATIONS, SEE THOSE SECTIONS. 


A DATA FIELD MAY BE REMAPPED TO BASE WHICH WILL GIVE THE FIELD 
A RELATIVE ADDRESS OF ZERO. FOR EXAMPLE: 

DECLARE X REMAPS BASE BIT(7); 
THIS DEVICE IS USED AS A FREE STANDING DECLARATION SINCE IT DOES 


NOT REMAP A PREVIOUSLY DECLARED DATA ITEM AND IS USED PRIMARILY 
WITH DATA TO BE INDEXED (SEE "ADDRESS VARIABLES"). 


STRUCTURED DECLARATIONS 


—— me com ane cen em eee eee ee eee eee ee ee eee ee ee ee ee ee ee ee eee 


.../<STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART>/... 


<DECLARE ELEMENT > 


<STRUCTURE LEVEL 


NUMBER> ::= <NUMBER> 
<STRUCTURE DECLARED 
PART> ::= <DECLARED PART> 

/ FILLER 

/ <DUMMY PART> REMAPS <REMAP IDENTIFIJERD 
<DECLARED PART> ::= SEE "NON-STRUCTURED DECLARATIONS" 
<DUMMY PART> ::= DUMMY <ARRAY BOUND PART> 


_<EMPTY> 
/ <ARRAY BOUND> 


<ARRAY BOUND PART> 


<ARRAY BOUND> ::= (<NUMBER > ) 


<REMAP IDENTIFIER> 


BASE 
/ <SIMPLE IDENTIFIER> 
/ <ARRAY IDENTIFIERD 


<STRUCTURE TYPE PART> ::= <EMPTY> 
/ <TYPE PART> 


<TYPE PART> ::= SEE "NON-STRUCTURED DECLARATIONS" 


SDL ALLOWS THE STRUCTURING OF DATA WHERE A FIELD MAY BE 
SUBDIVIDED INTO A NUMBER OF SUB-FIELDS, EACH OF WHICH HAS ITS 
OWN IDENTIFIER. THE WHOLE STRUCTURE IS ORGANIZED IN A 
HIERARCHICAL FORM, WHERE THE MOST GENERAL DECLARATION IS A 
LEVEL 0O1(OR 1). NO DECLARATION MAY BE ON A LEVEL GREATER’ THAN 
99. A SUBDIVIDED FIELD IS CALLED A GROUP ITEM, AND A FIELD NOT 
SUBDIVIDED IS KNOWN AS AN ELEMENTARY ITEM. | | 


THE TYPE AND LENGTH OF DATA NEED NOT BE SPECIFIED ON THE GROUP 
LEVEL. ALL ELEMENTARY ITEMS MUST INDICATE TYPE AND LENGTH, AND 
THE COMPILER WILL ASSUME TYPE BIT AND ADD THE LENGTHS OF THE 
COMPONENTS TO DETERMINE THE LENGTH OF THE GROUP ITEM. FOR 
EXAMPLE: . 
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DECLARE O1 A, 
02 C, 
03 D BIT(e0), 
03 E BIT(30), 
O02 D CHARACTER(S) ; 


IN THIS EXAMPLE, BOTH A AND C ARE CONSIDERED GROUP ITEMS, WITH 
A HAVING A TOTAL LENGTH OF 90 BITS AND C BEING 50 BITS LONG. 


FILLERS MAY BE USED TO DESIGNATE CERTAIN ELEMENTARY ITEMS WHICH 
THE PROGRAM DOES NOT REFERENCE. IF THE FILLER IS THE LAST ITEM 
IN A STRUCTURE, IT MAY BE OMITTED, AND THE COMPILER WILL 
CONSIDER THE ITEM TO BE AN IMPLIED FILLER. A FILLER MAY NEVER 
BE USED AS A GROUP ITEM. 


IF THE O1 LEVEL GROUP ITEM IS AN ARRAY, IT IS MAPPED AS A 
CONTIGUOUS AREA IN MEMORY. HOWEVER, SUBDIVISIONS OF THIS ARRAY 
ARE NOT CONTIGUOUS. IN THE EXAMPLE STRUCTURE BELOW: 


01 A(5) BIT(48), 01 A(5), , 
Oe B FIXED, OR O2 B FIXED, 
O2 C FIXED; | O2 C FIXED; 
fees * 4 fog, Pe a re [. ue 
AO | Al Ac | AS AY 
; BOY CO | Bl Cl Be | Ce | BS C3 | BY! CH | 
C4-BITS 
4U8-BITS 


IF A GROUP ITEM IS AN ARRAY, AN ARRAY SPECIFICATION MAY NOT | 
APPEAR IN ANY SUBORDINATE ITEM; THAT IS, ONLY ONE-DIMENSIONAL 
ARRAYS ARE ALLOWED. DOWN-LEVEL CARRY OF ARRAY SPECIFICATIONS IS 
IMPLIED. 


STRUCTURED DATA MAY BE REMAPPED IN THE SAME MANNER AS 
NON-STRUCTURED DATA. IN ADDITION, STRUCTURED DATA MAY BE 
REMAPPED WITH A DUMMY GROUP IDENTIFIER. THE PURPOSE OF THIS 
CONSTRUCT IS TO ALLOW THE USER TO REMAP DATA ITEMS WITHOUT 
HAVING TO DECLARE ANOTHER GROUP ITEM WHICH DESCRIBES THE SAME 
AREA IN CORE. THUS IN THE FOLLOWING EXAMPLE: | 


O!1 A BIT(100), 
O02 B BIT(e20), 
Oe C BIT(80); 


"A" MIGHT BE REMAPPED AS 


O01 AA REMAPS A BIT(100), O01 DUMMY REMAPS A BIT(100), 
Oe BB BIT(30), OR Oe BB BIT(30), 
Oe CC BIT(70); O02 CC BIT(70); 


BOTH A AND AA IN THE ABOVE EXAMPLE REFER TO THE SAME AREA IN 


CORE. HENCE AA IS REDUNDANT. DURING RUNTIME, THE DESCRIPTOR FOR 
AA WILL ALSO BE ON THE STACK. . 


IF "DUMMY" IS SUBSTITUTED FOR THE IDENTIFIER AA, NO DESCRIPTOR 


WILL BE GENERATED, HOWEVER BB AND CC WILL BOTH POINT TO A_ IN 
THE CORRECT FASHION. 


THE USER SHOULD NOTE THE DISTINCTION BETWEEN "DUMMY" AND 
"FILLER". "DUMMY" IS USED IN CONJUNCTION WITH "REMAPS" TO 
ELIMINATE THE NECESSITY OF DECLARING A REDUNDANT GROUP ITEM. 
"FILLER" IS USED IF ONE DESIRES TO SKIP OVER AN AREA OF CORE. 


THE FOLLOWING RESTRICTIONS APPLY TO THE USE OF "DUMMY REMAPS": 


1. "DUMMY " MAY ONLY BE USED WITH REMAP 
DECLARATIONS. 

=e ALL THE RESTRICTIONS APPLYING TO "REMAPS" 
APPLY TO "DUMMY REMAPS". 

Sis "DUMMY" MUST NOT REMAP ANOTHER "DUMMY". 

4s "DUMMY" GROUP ITEMS MUST HAVE AT LEAST ONE 


NON-FILLER COMPONENT. 
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DYNAMIC DECLARATIONS 


<DECLARE ELEMENT> ::= —4../ DYNAMIC <SIMPLE IDENTIFIERD © 
3 <DYNAMIC TYPE PART)/... 


<DYNAMIC TYPE PART> ::= BIT <DYNAMIC FIELD SIZE> 
: / CHARACTER <DYNAMIC FIELD SIZED 


<DYNAMIC FIELD SIZE> ::=  (<EXPRESSIOND) 


THE DYNAMIC DECLARE STATEMENT ALLOWS THE USER TO DECLARE SIMPLE 
DATA WITH A NON-STATIC FIELD LENGTH. FOR EXAMPLE: 


PROCEDURE ABX; 
DECLARE DYNAMIC X BIT(A); 


WHERE "A" MAY BE OF VARIABLE LENGTH. THE VALUE OF THE 
<EXPRESSION> APPEARING IN THE <DYNAMIC FIELD SIZE> IS USED TO 
DETERMINE THE NUMBER OF BITS OR CHARACTERS IN THE DECLARED DATA 
ITEM. [a | 


RESTRICTIONS: 


a THE VARIABLES USED IN THE <DYNAMIC FIELD SIZE> 
MUST HAVE BEEN PREVIOUSLY INITIALIZED. 


rae DYNAMICS MAY NOT APPEAR ON LEXIC LEVEL O. 


DYNAMIC VARIABLES MAY BE REMAPPED, HOWEVER A WARNING MESSAGE 
WILL APPEAR IN. THE SOURCE LISTING. IT IS THE PROGRAMMER-S 
RESPONSIBILITY TO ENSURE THAT A DYNAMIC IS NOT REMAPPED LARGER 
THAN ALLOWED. 


PAGED ARRAY DECLARATIONS 


——— ee ee ee cm cee em came au aur cee ee ae ae a ae ae ae one ae ame 


<DECLARE ELEMENT > .../ PAGED <ELEMENTS-PER-PAGE PART> 
<ARRAY IDENTIFITER> <ARRAY BOUND> 


<TYPE PART> 


<ELEMENTS-PER-PAGE 
PART> ::= (<NUMBER > ) 


<ARRAY IDENTIFIER> 


- <IDENTIFIER> 
<ARRAY BOUND> ::= (<NUMBER > ) 
<TYPE PART> ::= | FIXED 
/ CHARACTER <FIELD SIZE> 
/ BIT <FIELD SIZED 
<FIELD SIZE> ::= (<NUMBER> ) 
THE PAGED ARRAY DECLARATION ALLOWS THE USER TO SEGMENT ARRAYS. 


THE <ELEMENTS-PER-PAGE PART> SPECIFIES THE NUMBER OF ARRAY 
ELEMENTS CONTAINED IN EACH SEGMENT. FOR EXAMPLE: 


PAGED(64) A(4096) BIT(1); 


IS AN ARRAY OF 4096, 1-BIT ELEMENTS, SEGMENTED INTO 64, 
64-ELEMENT SEGMENTS. 


RESTRICTIONS: 


big PAGED ARRAYS MAY NOT BE INDEXED. | 


2, PAGED ARRAYS MAY NOT BE PART OF A’ STRUCTURE. 
3. PAGED ARRAYS MAY NOT BE REMAPPED. 
Y THE NUMBER OF ELEMENTS PER PAGE MUST BE A 


POWER OF 2, AND MAY NOT EXCEED 65535. 
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<FILE DECLARATION r 
STATEMENT > ai : FILE <FILE DECLARE ELEMENT LIST> ~ 


<FILE DECLARE | 
ELEMENT LIST> ::= <FILE DECLARE ELEMENT> 
| / <FILE DECLARE ELEMENT>, 
<FILE DECLARE ELEMENT LIST> 


<FILE DECLARE ELEMENT> ::= <FILE IDENTIFIER><FILE ATTRIBUTE PART> 


<FILE IDENTIFIER> ::= <IDENTIFIER> 


<FILE ATTRIBUTE PART> <EMPTY> 


/ (<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTED 
/ <FILE ATTRIBUTED, 
<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE> ::= <LABEL PART> 

<DEVICE PART> 

<MODE PART> 

<BUFFERS PART> : 
<VARIABLE RECORD PART> 
<LOCK PART> 

<SAVE FACTOR PART> 
<RECORD SPECIFICATION PART> 
<REEL NUMBER PART> 

<DISK FILE DESCRIPTION PART> 
<PACK-ID PART> 

<OPEN OPTION PART> 
<ALL.AREAS.AT.OPEN PART> 
<AREA.BY.CYLINDER PART> 
<EU.ASSIGNMENT PART> 
<MULTI.PACK PART> 

<USE. INPUT.BLOCKING PART> 
<SORTER STATION PART> 
<END.OF .PAGE PART> 
<REMOTE.KEY PART> 
<NUMBER.OF .STATIONS PART> 
<QUEUE .FAMILY.SIZE PART> 
<FILE TYPE PART> 

<WORK FILE PART> 

<LABEL TYPE PART> 


— 


“~wN NN Ss RR RRR RRR RRS 


ALL ATTRIBUTES AR: OPTIONAL, AS THE ABOVE SYNTAX INDICATES. DEFAULT 
STATUS WILL AUTOM!TICALLY BE SET FOR OMITTED ATTRIBUTES AS FOLLOWS. 


SYNTAX: <LABEL PART> ::= LABEL = 
<FILE IDENTIFICATION PART> 


<FILE IDENTIFICATION 
PART> ::= <MULTI-FILE IDENTIF ICATIOND 
/ <MULTI-FILE IDENTIFICATION> 
<SLASH> 
<FILE IDENTIFICATION> 


<MULTI-FILE 


IDENTIFICATION>D ::= <CHARACTER STRING?) 

<FILE IDENTIFICATIOND ::= <CHARACTER STRING) 

WHERE : 

<FILE IDENTIFIER> IS A FILE OR PROGRAM IDENTIFIER 
BY WHICH THE PROGRAM IDENTIFIES 
THE FILE 

<MULTI-FILE IDENTIFICATION> 

AND 

<FILE IDENTIFICATION>D ARE NAME OR CONTENTS OF 
IDENTIFICATION FIELD ON FILE 
LABEL OR DISK DIRECTORY BY 
WHICH THE SYSTEM IDENTIFIES 
THE FILE 

FORMAT: LABEL = "NAME.1" / "NAME.2" 
OR | 


LABEL = "NAME. 1" 
EXAMPLE : 


DECLARE INV.DATA.1 FILE | 
(LABEL = "RCD.TAPE" / "FILE.1"); 


NOTE: THE SYSTEM WILL. USE ONLY THE FIRST TEN 
CHARACTERS OF THE "NAME". | 


DEF AULT: IF LABEL(S) IS (ARE) NOT SPECIFIED, THE INTERNAL FILE 
NAME, I.E., <FILE IDENTIFIER>, [S MOVED TO <MULTI-FILE 
IDENTIFICATION>D, AND BLANKS ARE MOVED TO <FILE 
IDENTIFICATION> IN THE FPB (FILE PARAMETER BLOCK). 
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SYNTAX: <DEVICE PART> ::= DEVICE = <DEVICE SPECIFIER> 


<DEVICE SPECIFIER> ::= CARD / TAPE 
MULTI.FUNCTION.CARD 
TAPE .7 
TAPE .9 
TAPE . PE 
TAPE .NRZ 
DISK <ACCESS MODE> 
DISK.PACK <ACCESS MODE> 
DISK.FILE <ACCESS MODE> 
DISK.PACK.CENTURY <ACCESS MODE> 
DISK.PACK.CAELUS <ACCESS MODE> 
CARD.READER 
CARD.PUNCH <DEVICE OPTION> 
MF CU oo | 
PRINTER’ <DEVICE OPTION> 
PUNCH <DEVICE OPTION> 
PAPER. TAPE.PUNCH 
<DEVICE OPTION> 
-PUNCH.S96 <DEVICE OPTION> 
READER.PUNCH <DEVICE OPTION> 
READER .PUNCH.PRINTER 
<DEVICE OPTION> 


OO 


~~ N 


/ PUNCH.PRINTER <DEVICE OPTION> 

/ READER. 96 

/ PAPER. TAPE.READER 

/ SORTER.READER 

/ READER.SORTER 

/ SPO 

/ CASSETTE 

/ REMOTE 

/ QUEUE 
<ACCESS MODE> ::= <EMPTY> / SERIAL / RANDOM 
<DEVICE OPTION> ::= <EMPTY> 


/ <BACKUP OPTION> 

<SPECIAL FORMS OPTION> 

/ <SPECIAL FORMS OPTION> 
<BACKUP OPTION> 


~ 


<BACKUP SPECIFIER> 
/ OR <BACKUP SPECIFIER> 


<BACKUP OPTION> 


“BACKUP SPECIFIER>D ::= BACKUP / BACKUP TAPE 


/ BACKUP DISK. 
<SPECIAL FORMS OPTIOND ::= FORMS 
FORMAT: DEVICE = CARD 


CARD.READER 


TAPE 
MULTI.FUNCTION.CARD 
TAPE .7 
TAPE .9 
TAPE . PE 
TAPE .NRZ 

** DISK | 

** DISK.PACK 
** DISK.FILE 
** DISK.PACK. CENTURY 
** DISK.PACK.CAELUS 


* CARD.PUNCH XMARKED HARDWARE ONLY 
* PRINTER XMARKED HARDWARE ONLY 
* PRINTER FORMS XMARKED HARDWARE ONLY 
* PUNCH | XMARKED HARDWARE ONLY 
* PUNCH FORMS XMARKED HARDWARE ONLY 
* PAPER. TAPE.PUNCH XMARKED HARDWARE ONLY 
* PAPER. TAPE.PUNCH FORMS XMARKED HARDWARE ONLY 
* PUNCH.96 XMARKED HARDWARE ONLY 
* PUNCH.96 FORMS XMARKED HARDWARE ONLY 
* READER.PUNCH XMARKED HARDWARE ONLY 
* READER.PUNCH FORMS XMARKED HARDWARE ONLY 
* READER.PUNCH.PRINTER XMARKED HARDWARE ONLY 
* READER.PUNCH.PRINTER FORMS X%MARKED HARDWARE ONLY 
* PUNCH. PRINTER XMARKED HARDWARE ONLY 
* PUNCH.PRINTER FORMS XMARKED HARDWARE ONLY 

READER.96_— 

PAPER. TAPE.READER 

SPO 

MFCU 


SORTER.READER 
READER.SORTER 
CASSETTE 
REMOTE 

QUEUE 


* MAY OR MAY NOT BE FOLLOWED BY ANY SINGLE OPTION BELOW: 


BACKUP 

BACKUP TAPE 
BACKUP DISK 

OR BACKUP 

OR BACKUP TAPE 
OR BACKUP DISK > 


** MAY OR MAY NOT BE FOLLOWED BY ANY SINGLE OPTION BELOW: 


SERTAL 
RANDOM 


TAPE 
PRINTER BACKUP. 
PRINTER FORMS BACKUP TAPE 


EXAMPLES: DEVICE 
| DEVICE 
DEVICE 
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DEF AULT : IN THE ABSENCE OF ANY SPECIFICATION, TAPE WILL BE 
ASSUMED BY THE FPB. | 


SYNTAX: <MODE _PART> ::= MODE = <MODE SPECIFIERD> 


<MODE SPECIFIER> ::= <FILE PARITY PART> 
| / <TRANSLATION PART> 

/ <FILE PARITY PART> 

<TRANSLATION PART> 


<FILE PARITY PART> ::= ODD / EVEN 

<TRANSLATION PART>::= EBCDIC / ASCII / BCL / BINARY 
FORMAT: MODE = BCL OR 

OR | MODE = ASCII 

MODE = EVEN OR 

OR MODE = EVEN ASCII 

MODE = EVEN BCL 

OR 


DEFAULT: DEFAULT IS ODD OR EBCDIC, WHICHEVER IS APPLICABLE. 


SYNTAX: <BUFFERS PART> ::= BUFFERS = 


<NUMBER OF BUFFERS> 
<NUMBER OF BUFFERS>D ::= <NUMBER> 
FORMAT: BUFFERS = NUMBER 


DEFAULT: IF NOT SPECIFIED, BUFFERS WILL BE SET TO 1 IN THE FPB. 


SYNTAX: <VARIABLE RECORD PART> ::= VARIABLE 
FORMAT : VARIABLE 


DEF AULT: NOT VARIABLE, I.E., FIXED-SIZE RECORDS. 


SYNTAX: 


FORMAT: 


DEF AULT: 


SYNTAX: 


FORMAT : 


DEF AULT : 


SYNTAX: 


FORMAT : 


<LOCK PART> ::= 
LOCK 


LOCK IS NOT SET. 


<SAVE FACTOR PART> 


<SAVE FACTOR> ::= 


LOCK 


SAVE = <SAVE FACTOR> 


<NUMBER > 


SAVE = NUMBER (OF DAYS TO SAVE FILE) 


IF NOT SPECIFIED, THE SAVE SPECIFIER WILL BE SET TO 


IN THE FPB. 


<RECORD SPECIFICATION 
PART> ::= 


<RECORD SIZE SPECIFIER> 


<PHYSICAL RECORD SIZE> 
<LOGICAL RECORD SIZE> ::= 


<LOGICAL RECORDS PER 
PHYSICAL RECORD> ::= 


RECORDS = NUMBER 
OR 
RECORDS = NUMBER / NUMBER 


RECORDS = <RECORD SIZE 
SPECIFIER> 


<PHYSICAL RECORD SIZE> 
<LOGICAL RECORD SIZE> 
<SLASH> 

<LOGICAL RECORDS PER 
PHYSICAL RECORD> 
<NUMBER> 


<NUMBER > 


<NUMBER > 


NOTE: <PHYSICAL RECORD SIZE> INDICATES THE NUMBER 


CHARACTERS PER BLOCK; 


<LOGICAL RECORD SIZED, 


NUMBER OF CHARACTERS PER RECORD. 


EXAMPLE: 
RECORDS = 1e00 
OR 
RECORDS = 120 / 10 
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OF 
THE 


DEFAULT: 


SYNTAX: 


“FORMAT: 


DEF AULT: 


SYNTAX: . 


FORMAT : 


DEF AULT:. 


IN THE ABSENCE OF RECORD SPECIFICATIONS, ‘UNBLOCKED 
RECORDS OF THE FOLLOWING LENGTHS WILL BE ASSUMED. 


ANY CARD OR PUNCH CONFIGURATION ~ 80 BYTES 
ANY PRINTER CONFIGURATION 132 BYTES 
DISK | 180 BYTES 
SPO 72 BYTES 

ALL OTHERS 80 BYTES 
CREEL NUMBER PART> ::= REEL = <REEL NUMBER> 
<REEL NUMBER> ::= <NUMBER > 


REEL = NUMBER OF REEL 


THE FPB ASSUMES #1 IN THE ABSENCE OF ANY SPECIFICATION. 


<DISK FILE DESCRIPTION | 
PART> ::= AREAS = <NUMBER OF AREAS> 
| <SLASH> 
<PHYSICAL RECORDS PER AREA> 


<NUMBER OF AREAS> ::= <NUMBER > 


PHYSICAL RECORDS 


PER AREA>D ::= <NUMBER > 
AREAS = # OF AREAS / #OF BLOCKS PER AREA 
EXAMPLE: AREAS = 20 / 80 


NOTE: <PHYSICAL RECORDS PER AREA> INDICATES THE NUMBER 
OF BLOCKS PER AREA. THIS ATTRIBUTE IS APPLICABLE 
FOR DISK FILES ONLY. 


IF AREAS ARE NOT SPECIFIED, THE FPB WILL ASSUME 25 AREAS 
WITH 100 BLOCKS PER AREA. IF THE RECORD SPECIFICATIONS 
HAVE BEEN GIVEN, THE COMPILER WILL COMPUTE THE NUMBER OF 
RECORDS PER AREA. HOWEVER, IF RECORD SPECIFICATIONS ARE 
OMITTED, THE FPB WILL ASSUME 100 RECORDS PER AREA. IN 
EITHER CASE THEN, WHETHER AREAS ARE SPECIFIED OR NOT, 
THE COMPILER WILL HAVE COMPUTED THE NUMBER OF RECORDS 
FOR INSERTION IN THE FPB. 


SYNTAX: 


FORMAT : 


DEFAULT: 


SYNTAX: 


FORMAT : 


NOTE: 


DEFAULT: 


<PACK.ID PART> ::= PACK.ID = 

<PACK IDENTIFICATION> 
<PACK 
IDENTIFICATION) ::= <CHARACTER STRING> 


PACK.ID = "NAME" 
EXAMPLE : PACK.ID = "TRANS.BAL" 


NOTE: THE SYSTEM WILL USE ONLY THE FIRST TEN CHARACTERS 
OF THE "NAME". 


IF ABSENT, <PACK IDENTIFICATION> WILL BE SET TO BLANKS 
IN THE FPB. 


<OPEN OPTION): :=— OPEN. OPT I ON= | 
<OPEN OPTION ATTRIBUTE LIST> 


<OPEN OPTION 
ATTRIBUTE LIST>::= <OPEN ATTRIBUTE > 
/ <OPEN ATTRIBUTE> <SLASH> 
<OPEN OPTION ATTRIBUTE LIST> 


<OPEN ATTRIBUTE> ::= SEE "OPEN STATEMENT" 
OPEN.OPTION = ATTRIBUTE / ATTRIBUTE... 

EXAMPLE: OPEN.OPTION = OUTPUT/NEW 

WHILE THE ATTRIBUTES ARE THE SAME, THE <OPEN 
ATTRIBUTE>S IN THE <OPEN STATEMENT> ARE 
SEPARATED BY COMMAS, AND THE <OPEN ATTRIBUTEDS 

IN THE <OPEN OPTION> ABOVE ARE SEPARATED BY 
SLASHES. 


IF ABSENT, THE <OPEN ATTRIBUTE>S WILL BE SET AS FOLLOWS: 


IF <DEVICE> IS <OPEN OPTION> IS 
CARD INPUT 
PRINTER OUTPUT 
PUNCH | OUTPUT 


DISK INPUT 
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SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


<ALL.AREAS.AT.OPEN PART) ::= 


ALL.AREAS.AT.OPEN — 


IF. THIS OPTION IS SET, DISK SPACE FOR EACH AREA WILL BE 
ALLOCATED WHEN THE FILE IS OPENED. IF INSUFFICIENT SPACE 
IS AVAILABLE, A SPO MESSAGE WILL INDICATE THAT THERE IS 
NO USER DISK. 


AREAS ARE CREATED AS NEEDED. 


<AREA.BY.CYLINDER PART> ::= AREA.BY.CYLINDER 


IF THIS OPTION IS SPECIFIED, EACH AREA WILL BE PLACED AT 
THE BEGINNING OF A CYLINDER. IF THERE IS NO (MORE) SPACE 
AT THE BEGINNING OF ANY CYLINDER, A SPO MESSAGE WILL 
INDICATE THAT THERE IS NO USER DISK. 


AREAS ARE PLACED ANYWHERE ON DISK. 


<EU ASSIGNMENT PART> ::= EU.SPECIAL = <NUMBER> 


/ EU.INCREMENTED = <NUMBERD> 


THE <NUMBER> SPECIFIES ANY INTEGER OQ THROUGH 15. 
"EU.SPECIAL" IS APPLICABLE ONLY WITH HEAD PER TRACK 
DISKS AND SYSTEMS DISK PACKS, AND SPECIFIES THE DRIVE ON 
WHICH THE FILE IS TO GO. "EU.INCREMENTED" SPECIFIES THE 
DISK DRIVE. ON WHICH THE FIRST AREA OF A FILE IS TO GO. 
EACH SUBSEQUENT AREA IS PLACED ON THE NEXT DRIVE. IF, 
WITH EITHER OPTION, THE NECESSARY E.U. IS NOT AVAILABLE, 
E.U. O WILL BE TAKEN. | 


SPACE FOR FILES AND AREAS IS ALLOCATED ANYWHERE ON DISK. 


<MULTI PACK PART>::= MULTI .PACK 


IF THIS OPTION IS SPECIFIED, THE ENTIRE FILE MAY BE PUT 
ONTO SEVERAL DISK PACKS. 


THE FILE WILL BE PLACED ON ONE DISK PACK. 


SYNTAX: 


FUNCTION: 


DEF AULT: 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 


<USE . INPUT .BLOCKING | 
PART> ::= USE. INPUT. BLOCKING 


THIS OPTION IS ONLY APPLICABLE WITH INPUT DISK FILES. IF 
SPECIFIED, THE RECORD AND BLOCK SIZE SPECIFICATIONS WILL 
BE TAKEN FROM THE DISK FILE HEADER AND THE USER-S 
SPECIFICATIONS WILL BE IGNORED. 


THE FILE ATTRIBUTES ARE AS STATED. IN THE FILE 
DECLARATION. THOSE OPTIONS OMITTED ARE SET TO THEIR 
DEFAULT STATUSES. 


<SORTER STATION PART> ::= SR.STATION = <NUMBER> 


THE NUMBER INDICATES WHICH READ STATION(S) IS(ARE) TO BE 
USED ON A SORTER-READER FILE. THE POSSIBLE STATIONS ARE 
THE MAGNETIC INK CHARACTER READER AND THE OPTICAL 
CHARACTER READER. THE READ STATIONS ARE INTERCHANGEABLE , 
THUS THE SYSTEM DOCUMENTATION SHOULD BE CONSULTED FOR 
SPECIFIC HARDWARE CONFIGURATIONS. THE VALUES ALLOWED ARE 
AS FOLLOWS: 


l= FIRST STATION 
2= SECOND STATION 
3= BOTH STATIONS 


SR.STATION = 0 


<END.OF .PAGE PART> ::= END.OF .PAGE .ACTION 


THIS ATTRIBUTE WILL CAUSE THE <EOF PART> OF A <WRITE 


STATEMENT> TO BE EXECUTED AT THE END OF A PAGE ON A 


PRINTER FILE. REFER TO "WRITE STATEMENT" FOR DETAILS. 


NO AUTOMATIC PAGING ACTION 
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SYNTAX: <REMOTE .KEY PART>: REMOTE .KEY 


FUNCTION: THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "REMOTE". 

| WHEN PRESENT, IT INDICATES THAT A KEY MAY BE PRESENT ON 
A READ OR WRITE TO THAT FILE. IF MISSING, THEN NO KEY 
CAN BE USED. THE FORMAT OF THE KEY IS GIVEN BELOW. EACH 
FIELD OF THE KEY IS IN DECIMAL CHARACTERS. THE KEY IS A 
TOTAL OF 10 CHARACTERS FORMATTED AS FOLLOWS: 


STATION NUMBER | 3 CHARACTERS 
MESSAGE LENGTH (BYTE COUNT) 4 CHARACTERS 
MESSAGE TYPE (MUST BE "000") 3 CHARACTERS 


DEF AULT : NO REMOTE KEY 


SYNTAX: <NUMBER.OF .STATIONS PART>:= NUMBER.OF .STATIONS = <NUMBER> 

FUNCTION: THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "REMOTE". 
WHEN PRESENT, IT SPECIFIES THE MAXIMUM NUMBER OF 
STATIONS THAT CAN BE ATTACHED TO THIS FILE. 7 


DEFAULT: NUMBER. OF .STATIONS=1 


SYNTAX: <QUEUE.FAMILY.SIZE PART>::=  QUEUE.FAMILY.SIZE=<NUMBER> 


FUNCTION: THIS ATTRIBUTE IS USED ONLY WITH FILES OF TYPE "QUEUE". 
IT SPECIFIES THE NUMBER OF MEMBERS IN A QUEUE FAMILY. 


DEFAULT: QUEUE .FAMILY.SIZE=1 


SYNTAX: FILE TYPE PART>::= FILE.TYPE=<FILE TYPE SPECIFIER> 
<FILE TYPE SPECIFIER>::= DATA/ INTERPRETER/CODE/ INTRINSIC 
FUNCTION: THIS ATTRIBUTE ALLOWS SDL PROGRAMS TO SPECIFY THE TYPE 
OF THE FILES THEY ARE CREATING. IN PARTICULAR, THE 
COMPILERS WILL USE THE TYPE "CODE" FOR THEIR CODEFILES. 


DEFAULT: FILE TYPE PART=DATA 


SYNTAX: 


FUNCTION: 


DEFAULT: 


SYNTAX: 


FUNCTION: 


DEF AULT: 
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<WORK FILE PART>::= WORK. FILE 


THIS ATTRIBUTE CAUSES THE JOB NUMBER TO BE INCLUDED AS 
PART OF THE FILE IDENTIFIER. 


NOT A WORK FILE 


<LABEL TYPE PART>::= LABEL.TYPE=<LABEL TYPE SPECIFIER> 


<LABEL TYPE SPECIFIER>: := UNLABELED 


THIS ATTRIBUTE ALLOWS THE LABEL TYPE TO BE SPECIFIED. 
CURRENTLY, "UNLABELED" IS THE ONLY TYPE. 


BURROUGHS STANDARD LABEL 
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SWITCH FILE DECLARATIONS 


<SWITCH FILE ng #2 
DECLARATION STATEMENT>::= § SWITCH.FILE <SWITCH FILE 
DECLARE ELEMENT LIST> 


<SWITCH FILE | . | 7 
DECLARE ELEMENT LIST>::= <SWITCH FILE DECLARE ELEMENT> 
/ <SWITCH FILE DECLARE ELEMENT>, — 
<SWITCH FILE DECLARE ELEMENT LIST> 


<SWITCH FILE 
DECLARE ELEMENT> ::= <SWITCH FILE IDENTIFIER> (<FILE 
IDENTIFIER LIST>) 


SWITCH FILE IDENTIFIER>::= <IDENTIFIER> 


<FILE IDENTIFIER LIST>::= <FILE IDENTIFIERD | 
/ <FILE IDENTIFIER), <FILE TENTIFIER LIST> 


A SWITCH FILE DECLARATION SPECIFIES THE ELEMENTS OF A "CASE", 
THESE ELEMENTS BEING FILES. A SUBSCRIPTED <SWITCH FILE 
IDENTIFITER> MAY BE USED ANYWHERE THAT A <FILE IDENTIFIER> MAY 
BE USED. IF THERE ARE N FILES IN THE <FILE IDENTIFIER LIST), 
THEN THE SUBSCRIPT MUST RANGE FROM O TO N-1. THE VALUE OF THE 
SUBSCRIPT SELECTS ONE OF THE N FILES IN THE LIST, DEPENDING 
UPON ORDINAL POSITION (THE FILES IN THE <FILE IDENTIFIER LIST> 
ARE NUMBERED FROM LEFT TO RIGHT, BEGINING WITH QO). IF ALL FILES 
IN THE <FILE IDENTIFIER LIST> ARE OF TYPE "REMOTE", THEN THE 
SWITCH FILE IDENTIFIER IS OF TYPE "REMOTE". 


THE FOLLOWING EXAMPLE COPIES CARD IMAGES FROM CARDS, TAPE, OR 
DISK TO CARDS, PRINTER, TAPE, OR DISK: 


FILE 

CARDS (DEVICE=CARD) 

» TAPE T (DEVICE=TAPE , USE. INPUT .BLOCKING) 
»DISKI (DEVICE=DISK,USE. INPUT.BLOCKING) 


FILE 
‘PUNCH ( DEV ICE=PUNCH) 
,LINE (DEVICE=PRINTER) 
, TAPEO (DEVICE=TAPE , RECORDS=80/4) 
,DISKO(DEVICE=DISK ,RECORDS=80/9) 


SWITCH.FILE 
INPUT (CARDS, TAPE! ,DISKI) 
, OUTPUT (PUNCH, LINE, TAPEO,DISKO) 
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DECLARE 
INPUT.TYPE BIT (24) 
,OUTPUT. TYPE BIT (24) 
,BUFFER CHARACTER(80) 


DISPLAY "*#*** INPUT TYPE"; 
ACCEPT INPUT.TYPE; 
INPUT. TYPE + BINARY (SUBSTR(INPUT.TYPE,0,1)) MOD 3; 
DISPLAY "***** OUTPUT TYPE"; 
ACCEPT OUTPUT.TYPE; 
OUTPUT. TYPE<«—BINARY (SUBSTR (OUTPUT. TYPE,0,1)) MOD 4; 
OPEN INPUT(INPUT.TYPE) INPUT; | 
OPEN OUTPUT (OUTPUT. TYPE) OUTPUT/NEW; 
DO FOREVER; 

READ INPUT(INPUT.TYPE) (BUFFER) ; 

ON EOF UNDO; 

WRITE OUTPUT(OUTPUT.TYPE) (BUFFER) ; 
END ; 
CLOSE OUTPUT (OUTPUT.TYPE) WITH LOCK; 
STOP; 
FINI 
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DEFINE STATEMENT 


<DECLARATION STATEMENT> ::= .../<DEFINE STATEMENT);/... 


<DEF INE STATEMENT> ::= DEFINE <DEFINE ELEMENT > 
/ <DEFINE STATEMENT>, 
<DEF INE ELEMENT > 


<DEF INE ELEMENT> ::= <DEF INE IDENTIFTIERD>D 
. “FORMAL PARAMETER PART > 
AS <DEFINE STRING> 


<DEF INE IDENTIFIERD> = <IDENTIF IERD> 

<FORMAL PARAMETER PART> ::= (<FORMAL PARAMETER LIST>) 
/ (<FORMAL PARAMETER LISTD>] 
/ <EMPTY> 

<FORMAL PARAMETER LIST> ::= <FORMAL PARAMETER> 


/ <FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<FORMAL PARAMETER> ::= <IDENTIF IERD 
<DEF INE STRING>D ::= #<WELL-FORMED CONSTRUCT ># 
<WELL-FORMED CONSTRUCT> ::= <EMPTY> 


/ <BASIC COMPONENT > 
<WELL-FORMED CONSTRUCT > 


<BASIC COMPONENT> ::= <RESERVED WORD> SEE APPENDIX 
<IDENTIFIER> 

<SPECIAL CHARACTER> 

<COMMENT STRING> 

<CONSTANT> 


~ NOS 


THE <DEF INE STATEMENT> ASSIGNS THE TEXT ENCLOSED BETWEEN THE "#" 
SIGNS FOLLOWING THE RESERVED WORD "AS" TO THE «DEF INE 
IDENTIFIER>. INVOCATION OF THE <DEFINE IDENTIFIER> CAUSES THE 
TEXT TO REPLACE THE IDENTIFIER, THEREBY PROVIDING A FORM OF 
SHORTHAND CODE. 3 


AT DECLARATION TIME, THE COMPILER IS UNCONCERNED WITH THE 
CONTENTS OF THE <DEFINE STRING>. HOWEVER, WHEN THE <DEFINE 
IDENTIFIER> IS INVOKED, THE <WELL-FORMED CONSTRUCT> MUST 
CONFORM TO THE SYNTACTICAL REQUIREMENTS OF THE STATEMENT 
CONTAINING THE IDENTIFIER. 
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THERE ARE TWO TYPES OF <DEFINE STATEMENT>S: SIMPLE AND 
PARAMETRIC, WHERE THE PARAMETERS ARE ENCLOSED IN PARENTHESES 


FOLLOWING THE <DEFINE IDENTIFIERD. BELOW ARE EXAMPLES OF BOTH 
TYPES: 


DEFINE A AS #IF X>10 THEN PROCXs#, 
CH AS #CHARACTERS#, 
B(Y,Z) AS #IF Y<Z THEN Y: 
C(M) AS # X:=M; A #; 


Z #, 


NOTICE THAT <DEFINE STATEMENT>S MAY BE FACTORED, WITH COMMAS 
SEPARATING EACH ELEMENT. | 


THE <DEFINE IDENTIFIER> HAS SCOPE IN THE SAME MANNER AS_~ ANY 
OTHER IDENTIFIER (EXCEPT FOR SEGMENT AND DO-GROUP IDENTIFIERS). 


RESTRICTIONS ON THE USE OF DEFINES: 


bs RESERVED WORDS MAY NOT BE USED AS <DEFINE 
IDENTIFIERDS, HOWEVER, AN IDENTIFIER MAY 
DEFINE A RESERVED WORD. 


a "SPECIAL" WORDS MAY BE USED AS <DEF INE 
IDENTIFIERS, HOWEVER, THEIR SPECIAL 
SIGNIFICANCE IS LOST WITHIN THE THE SCOPE OF 
THAT <DEF INE STATEMENT>. 


5% <DEF INE INVOCATION>S MAY APPEAR WITHIN A 
<WELL-F ORMED CONSTRUCT>, I.E., A <DEF INE 
IDENTIFIER> MAY APPEAR WITHIN ANOTHER <DEF INE 
ELEMENT>. <DEFINE [DENTIFIER>S MAY BE NESTED 
NO MORE THAN ie LEVELS DEEP. 


t THE IDENTIFIERS LISTED BELOW ARE NEVER LOOKED 
UP IN THE LIST OF DEFINE NAMES. 


DECLARE , DEFINE, PROCEDURE , AND FORMAL 
IDENTIFIERS, 


SEGMENT AND DO-GROUP IDENTIFIERS, 

FILE, OPEN, AND CLOSE ATTRIBUTES, 

<FILE ATTRIBUTE STATEMENT> ATTRIBUTE NAMES 
"ON" CONDITION NAMES (EOF, EXCEPTION, 
FILE.MISSING, Q.FULL, Q.EMPTY, NO. INPUT. 
FILE.LOCKED). | 


"ACCEPT"/"DISPLAY" SPECIFIERS: END.OF.TEXT AND 
CRUNCHED. a — 


IF ONE OF THESE IDENTIFIERS HAPPENS TO BE THE 
SAME AS A <DEFINE IDENTIFIER>, NO SUBSTITUTION 
OCCURS. THE <WELL-FORMED CONSTRUCT> OF THE 
DEFINE WILL NOT REPLACE THE IDENTIFIER. NOTE, 
HOWEVER, THAT DUPLICATE IDENTIFIERS MAY NOT 
APPEAR WITHIN THE SAME LEXIC LEVEL; AN ERROR. 
MESSAGE RESULTS. 


2 THERE MAY BE NO MORE THAN 8 <FORMAL 
PARAMETER>S IN A <FORMAL PARAMETER LIST>. 


6. REFER TO APPENDIX VI FOR RULES CONCERNING 
CONDITIONAL INCLUSION CARDS WITHIN DEFINES. 


THE FOLLOWING SYNTAX ILLUSTRATES THE FORMAT USED IN THE 
INVOCATION OF A <DEFINE IDENTIFIER): 


<DEFINE INVOCATION>D ::= <SIMPLE DEFINE IDENTIFIER> 
/ <PARAMETRIC DEFINE IDENTIFIER>D 
(<DEF INE ACTUAL PARAMETER LIST>) 
/ <PARAMETRIC DEFINE IDENTIFIERD 
(<DEFINE ACTUAL PARAMETER LIST>] 


<SIMPLE DEF INE 


IDENTIFIER> ::= <DEF INE IDENTIFIER>D 
<PARAMETRIC 
DEFINE IDENTIFIER> ::= — DEFINE IDENTIFTIERD 


<DEF INE ACTUAL 7 | 

PARAMETER LIST> ::= <DEF INE ACTUAL PARAMETER> 

| / <DEFINE ACTUAL PARAMETER>, 
<DEF INE ACTUAL PARAMETER LIST> 


<DEF INE ACTUAL 
PARAMETER> ::= <WELL-FORMED CONSTRUCT > 


A <DEFINE INVOCATION> MAY OCCUR ANYWHERE WITHIN AN SDL PROGRAM 
EXCEPT IN THE CASES LISTED ABOVE IN RESTRICTION 4. AS INDICATED 
BY THE ABOVE BNF, THE ACTUAL PARAMETERS OF A DEFINE ARE NOT . 
CONFINED TO CONSTANTS AND VARIABLES BUT MAY HAVE A WIDE RANGE 

OF CONSTRUCTS. FOR EXAMPLE, THE <DEFINE STATEMENT> MENTIONED 
ABOVE : 7 | 


DEFINE C(M) AS# X:=M; A 4; 
MIGHT BE INVOKED AS FOLLOWS: | 
C(Z;BUMP I[R,S)); 
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WHICH EXPANDS TO: 7 
X:=Z; BUMP I{R,S); IF X>10 THEN PROCX; 


THE FOLLOWING RESTRICTIONS APPLY TO THE USE OF THE <DEF INE 


INVOCATION>: 


Es 


NO  UNPAIRED BRACKETING SYMBOLS, I.E., () OR 


CJ], MAY APPEAR. 


WITHIN A <DEFINE ACTUAL PARAMETER LIST>, 

COMMAS NOT ENCLOSED WITHIN PAIRED BRACKETING 

SYMBOLS ACT TO DELIMIT THE <DEFINE ACTUAL 
PARAMETERDS. THEREF ORE A <WELL-FORMED 

CONSTRUCT> NOT ENCLOSED IN BRACKETING SYMBOLS 

MAY NOT CONTAIN COMMAS. FOR EXAMPLE: 


DEFINE X(A,B) AS # A(B) #; 
AND INVOKED AS: 
Z:=X(M,Q,R,9); 
WOULD RESULT IN THE ERROR MESSAGE: 

DEFINE INVOCATION HAS TOO MANY PARAMETERS 
PROPER INVOCATION IS POSSIBLE BY REMOVING THE 
PARENS FROM THE DEFINE AND PLACING THEM IN THE 
INVOCATION: 


DEFINE X(A,B) AS # AB @; 
Z:=X(M,(Q,R,S)); 


COMMENTS ARE ALLOWED BUT WILL BE DELETED FROM 
THE ACTUAL PARAMETER TEXT. 


FORWARD DECLARATION 


<DECLARATION STATEMENT> 


<FORWARD DECLARATION> 


<COMPOUND PROCEDURE 
HEAD> ::= 


<PROCEDURE HEAD> ::= 
<BASIC PROCEDURE HEAD> 


<PROCEDURE NAME> ::= 
<PROCEDURE IDENTIFIERD 
<TYPED PROCEDURE 
IDENTIFIER>D ::= 


<NON-TYPED PROCEDURE 
IDENTIFIER>D ::= 


<FORMAL PARAMETER PART> 


<FORMAL PARAMETER LIST> 


<FORMAL PARAMETER> ::= 


<PROCEDURE TYPE PART> :: 


<FORMAL TYPE PART> ::= 


<TYPE PART> ::= 


<TYPE VARYING PART > 


/ 
/ 


.../SFORWARD DECLARATIOND/... 
FORWARD <COMPOUND PROCEDURE HEAD> 
<PROCEDURE HEAD> 

<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART>; 


<PROCEDURE NAME> > 
<FORMAL PARAMETER PART> 


PROCEDURE <PROCEDURE IDENTIFIERD 
<TYPED PROCEDURE IDENTIFIER> 
<NON-TYPED PROCEDURE IDENTIFIER> 
<IDENTIFIER>D 


< IDENT IF TER> 


<EMPTY> | 
(<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER> 
<FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<IDENTIF IERD 


<EMPTY> 
<FORMAL TYPE PART> 


<TYPE PART > 
<TYPE VARYING PART> 


FIXED 
CHARACTER <FIELD SIZE> 
BIT <FIELD SIZED 


VARY ING 
BIT VARYING 
CHARACTER VARYING 
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<FORMAL PARAMETER DECLA- oe i 

RATION STATEMENT LIST> : <EMPTY> 
/ <FORMAL PARAMETER DECLARATION STATEMENT); 

— <FORMAL PARAMETER DECLARATION 


STATEMENT to 


<FORMAL PARAMETER 
DECLARATION STATEMENT) 


FORMAL <FORMAL ELEMENT> 
/ FORMAL.VALUE <FORMAL ELEMENT> 
-/ FORMAL PARAMETER DECLARATION STATEMENT>, 
<FORMAL ELEMENT> | 


<FORMAL ELEMENT> ::= = ~~ (<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART>  —s 

/ <FORMAL IDENTIFIER>~ 

<FORMAL TYPE PART> — 


<FORMAL INDENTIFIER 
LIST? 222 7 <FORMAL IDENTIFIER> 
/ <FORMAL IDENTIFIER LIST>, 
<FORMAL IDENTIFIERD 


<FORMAL IDENTIFIER> ::= <COMPLEX IDENTIFIER> 
/ <VARYING ARRAY SPECIFIERD>D 


<COMPLEX IDENTIFIER>D ::= <SIMPLE IDENTIFIER>D 
| / <ARRAY IDENTIFIER> 
<ARRAY BOUND > 


<VARYING ARRAY | 
SPECIFIER> ::= <ARRAY IDENTIFIER> 
<VARYING ARRAY BOUND> 


<VARYING ARRAY BOUND> ::= (*) 


BEFORE A PROCEDURE MAY BE CALLED, SDL SPECIFIES THAT IT MUST 
HAVE BEEN PREVIOUSLY DECLARED. A CONTRADICTION ARISES WHEN ONE 
PROCEDURE CALLS ANOTHER PROCEDURE WHICH IN TURN REFERENCES THE 
FIRST. IN THIS CASE, WHICHEVER PROCEDURE APPEARS FIRST MUST 
NECESSARILY CONTAIN AT LEAST ONE REFERENCE TO THE SECOND WHICH 
HAS NOT YET BEEN DECLARED. 


THE <FORWARD DECLARATION> ALLOWS THE PROGRAMMER TO USE RECURSIVE 
REFERENCES BY PROVIDING A TEMPORARY PROCEDURE DECLARATION. THE 

<FORWARD DECLARATION>, HOWEVER, DOES NOT ELIMINATE THE NEED FOR 

THE NORMAL PROCEDURE DECLARATION WHICH MUST FOLLOW IN THE 

PROGRAM AND MUST HAVE THE SAME SCOPE. 


THE PARAMETERS MENTIONED IN THE <FORWARD DECLARATION> MUST BE 
THE SAME FORMAL PARAMETERS (IN TYPE AND SIZE, BUT NOT IN NAME) 


THAT THE PROCEDURE ITSELF WILL DECLARE. 


PROCEDURES MAY BE EITHER TYPED OR NON-TYPED DEPENDING ON’ THEIR 
USE. FORMAL DATA TYPES MAY EITHER BE STATIC OR VARYING, AGAIN 
DEPEND ING ON THE PROGRAM. THESE SPECIFICATIONS WILL BE 
DISCUSSED IN THE SECTION ENTITLED "THE PROCEDURE STATEMENT". 


THE FOLLOWING EXAMPLES ILLUSTRATE THE USE OF THE <FORWARD 
DECLARATION>: 


FORWARD PROCEDURE X CHARACTER VARYING; 
FORWARD PROCEDURE J(K,L,M); 
FORMAL K(*) BIT VARY-ING, 
FORMAL L(15) CHARACTER (8), 
FORMAL M FIXED; 
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USE STATEMENT 


<USE STATEMENT> ::= USE (<SIMPLE IDENTIFIER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIER | me 
LIST> ::= <SIMPLE IDENTIFIERD 
/ <SIMPLE IDENTIFIERD, 
<SIMPLE IDENTIFIER LIST> 


<SIMPLE IDENTIFIERD 


<IDENTIFIER> 


<DEFINE IDENTIFIER> <IDENTIFIERD> 


THE PURPOSE OF THE <USE STATEMENT> IS TO ALLOW THE PROGRAMMER TO 
DECLARE SPECIFIC ELEMENTS IN A DEFINED STRUCTURE WITHIN A 
PROCEDURE . BY SPECIFYING ONLY THE DESIRED ELEMENTS, THE NAME 
STACK SIZE IS KEPT TO A MINIMUM, AND PROGRAM MAINTENANCE IS 
SIMPLIFIED. THE COMPILER WILL GENERATE THE STRUCTURE USING 
FILLERS AND THE SPECIFIED ELEMENTS. 


THE FOLLOWING RESTRICTIONS APPLY TO THE <USE STATEMENT>: 


1. IT MUST APPEAR WITHIN A PROCEDURE (I.E., ON A 
LEXIC LEVEL GREATER THAN 0). 

2. THE REFERENCED <DEFINE IDENTIFIER> MUST DEFINE 
ONE STRUCTURED DECLARE STATEMENT. 

3. THE STRUCTURE MAY NOT CONTAIN ARRAYS. 

4. THE OUTERMOST LEVEL OF THE STRUCTURE (01) MUST 


BE A "DUMMY REMAPS"., 


EXAMPLE: 


DEFINE X AS # 
DECLARE O1 DUMMY REMAPS A, % MIGHT ALSO REMAP BASE 
02 B BIT(5), 
03 BI BIT(2), 
03 Be BIT(3), 
02 C CHARACTER(10), 
02 D BIT(1), 
O02 E FIXED, 
02 F BIT (24) #; 
PROCEDURE FIRST; 
USE (C,D) OF X; 


FROM THE ABOVE <USE STATEMENT> THE COMPILER WILL GENERATE 
FOLLOWING STRUCTURE : 


O01 DUMMY REMAPS A, 
02 FILLER BIT(5), 
03 FILLER BIT(2), 
03 FILLER BIT(3), 
02 Cc. CHARACTER(10), 
02 D BIT(1), 
02 FILLER FIXED, 
02 FILLER BIT(24); 


NOTE THAT FILLER WAS SUBSTITUTED FOR THE GROUP ITEM B. 


THE 


THIS 


WOULD NORMALLY GENERATE A SYNTAX ERROR, AND IS ALLOWABLE ONLY 


IN THE <USE STATEMENT>. 
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PROCEDURE STATEMENT 


PROCEDURE STATEMENT 
LIST> ::= <EMPTY> 
/ <PROCEDURE STATEMENT); 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE STATEMENT) ::= <PROCEDURE DEF INITION>D 
/ <SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<PROCEDURE DEFINITION> ::= <COMPOUND PROCEDURE HEAD) 
<PROCEDURE BODY > 

<SEGMENT STATEMENT > SEE "THE SEGMENT STATEMENT " 

<PROCEDURE BODY> ::= <DECLARATION STATEMENT LIST> 


<PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


PROCEDURES ARE SELF-CONTAINED FUNCTIONAL UNITS WITHIN AN- SDL 
PROGRAM WHICH MAY BE ACCESSED ACCORDING TO SPECIFIC RULES 
DISCUSSED UNDER "BASIC STRUCTURE OF THE SDL PROGRAM". 
PROCEDURES MAY BE CREATED BY PRECEDING SELF-CONTAINED 
STATEMENTS WITH A <COMPOUND PROCEDURE HEAD>, AND TERMINATING IT 
WITH A <PROCEDURE ENDING>. 


THE <PROCEDURE DEFINITION> IS COMPOSED OF THREE BASIC PARTS: THE 
HEADING, BODY, AND ENDING. IDENTIFIERS DECLARED IN A PROCEDURE 
MAY BE ACCESSED ONLY IN THE PROCEDURE IN WHICH THEY ARE 
DECLARED, AND IN PROCEDURES NESTED WITHIN THE DECLARING 
PROCEDURE . | . 


PROCEDURES MAY BE EITHER "TYPED" OR "NON-TYPED". A "TYPED" 
PROCEDURE RETURNS SOME VALUE OF THE TYPE SPECIFIED IN THE 
PROCEDURE DECLARATION TO THE EXPRESSION WHERE THE PROCEDURE WAS 
INVOKED. SEE "VALUE VARIABLES" FOR DETAILS. A "NON-TYPED" 
PROCEDURE PERFORMS A FUNCTION, DOES NOT RETURN A VALUE, AND IS 
INVOKED IN AN <EXECUTE PROCEDURE STATEMENT>. SEE “EXECUTE 
PROCEDURE STATEMENT". 


THE SYNTAX FOR THE PROCEDURE HEADING IS: 


<COMPOUND PROCEDURE | 
HEAD> ::= | <PROCEDURE HEAD> 
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<PROCEDURE HEAD> ::= 


<BASIC PROCEDURE HEAD> :: 


<PROCEDURE NAME> ::= 
<PROCEDURE IDENTIFIERD 


<TYPED PROCEDURE 
IDENTIFIER>D ::= 


<NON-TYPED PROCEDURE 
IDENTIFIER> ::= 


CINTRINSIC IDENTIFIER>D:= 


<TYPED INTRINSIC 
IDENTIFIER>::= 


<NON-TYPED INTRINSIC 
IDENTIFIER>: := © 


<FORMAL PARAMETER PART > 


<FORMAL PARAMETER LIST> 


<FORMAL PARAMETERD ::= 


<PROCEDURE TYPE PART> 
<FORMAL TYPE PART> ::= 


<TYPE PART>D ::= 


<TYPE VARYING PART> 


<FORMAL PARAMETER DECLA- 


g-2 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART); 


<PROCEDURE NAME> 
<FORMAL PARAMETER PART> 


PROCEDURE <PROCEDURE IDENTIFIER> 
INTRINSIC <INTRINSIC IDENTIFIER>D 


<TYPED PROCEDURE IDENTIFIER> | 
<NON-TYPED PROCEDURE IDENTIFIER> 


CIDENTIFIER>D 


C<IDENTIF TER> 
<TYPED INTRINSIC IDENTIFIERD 
<NON-TYPED INTRINSIC I[DENTIFIERD 


< IDENTIFIER) - 


C<IDENTIFIER>D 


<EMPTY> 
(<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER> 
<FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<IDENTIFIER> 


<EMPTY> 
<FORMAL TYPE PART> 


<TYPE PART> — 
<TYPE VARYING PART> 


FIXED 
CHARACTER <FIELD SIZED 
BIT <FIELD SIZED 


VARYING 
BIT VARYING 
CHARACTER VARYING 


RATION STATEMENT LIST> ::= <EMPTY> 
/ <FORMAL PARAMETER DECLARATION STATEMENT) ; 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT> FORMAL <FORMAL ELEMENT > 

/ FORMAL.VALUE <FORMAL ELEMENT > 

/ <FORMAL PARAMETER DECLARATION STATEMENT>, 


<FORMAL ELEMENT > 


<FORMAL ELEMENT> ::= (<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART > 
/ <FORMAL IDENTIFIER> 
<FORMAL TYPE PART> 


<FORMAL INDENTIFIER 
LIST> ::= <FORMAL IDENTIFIERD 
/ <FORMAL IDENTIFIER LIST), 
<FORMAL IDENTIFIER>D 


<FORMAL IDENTIFIER> ::= <COMPLEX IDENTIFIER> 
/ <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTIFIER>D ::= <SIMPLE IDENTIFIER> 
/ <ARRAY IDENTIFIER> 
<ARRAY BOUND > 


<VARYING ARRAY 
SPECIFIER> ::= <ARRAY I[DENTIF IER> 
<VARYING ARRAY BOUND> 


<VARYING ARRAY BOUND? ::= (*) 


THE PROCEDURE HEADING, |!.E., <COMPOUND PROCEDURE HEAD>, CONTAINS 
THE <PROCEDURE NAME>, FORMAL PARAMETERS (IF ANY), AND THE 
<PROCEDURE TYPE PART>, I.E., THE FIELD TYPE OF THE VALUE TO BE 
RETURNED IF THE PROCEDURE IS "TYPED". FOR EXAMPLE: 


PROCEDURE X (M,N) FIXED; 
FORMAL (M,N) VARYING; 


WHICH CORRESPONDS TO THE FOLLOWING SYNTAX: 


PROCEDURE <TYPED PROCEDURE IDENTIFIER>D | 
(<FORMAL PARAMETER>,<FORMAL PARAMETER? ) 
<PROCEDURE TYPE PART>; | 
FORMAL (<FORMAL IDENTIFIER>,<FORMAL IDENTIFIER>) 
<FORMAL TYPE PART); | 
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IN THIS CASE, THE VALUE RETURNED TO THE POINT OF INVOCATION 
SHOULD BE ee THERE IS, HOWEVER, NO CHECK FOR THIS AT 
COMPILE TIME. IF THE CONTROL CARD OPTION "FORMALCHECK" IS 
PRESENT, THE RETURNED VALUES WILL BE CHECKED AGAINST THE 
PROCEDURE TYPE AT RUN TIME. 


THE "NON-TYPED" PROCEDURE FOLLOWS THE SAME FORMAT EXCEPT THAT 
THE <PROCEDURE TYPE PART> IS OMITTED SINCE NO VALUE IS 
RETURNED. FOR INSTANCE: 


PROCEDURE A (J,K,L); 
FORMAL J FIXED, (K,L) BIT VARYING; 


WHICH SYNTACTICALLY IS THE SAME .AS: 


PROCEDURE <NON-TYPED PROCEDURE IDENTIFIER> 
(<FORMAL PARAMETER>,<FORMAL PARAMETER? , 
<FORMAL PARAMETER)) ; 
FORMAL <FORMAL IDENTIFIER> <FORMAL TYPE PART>, 
(<FORMAL IDENTIFIER>,<FORMAL IDENTIFIER>) 
<FORMAL TYPE PART>; 


THE FIELD TYPE OF FORMAL PARAMETERS (1.E., COMPONENTS OF _ THE 
<FORMAL TYPE PART>) MAY BE STATIC (BIT, CHARACTER, OR FIXED) OR 
VARIABLE (BIT VARYING, CHARACTER VARYING, OR VARYING). 


OFTEN HOWEVER, IT IS IMPOSSIBLE TO DETERMINE THE DATA TYPE AT 
COMPILE TIME ESPECIALLY IF THE ACTUAL PARAMETERS ARE PASSED TO 
THE PROCEDURE FROM DIFFERENT POINTS IN THE PROGRAM AND UNDER 
DIFFERING CIRCUMSTANCES. SDL ALLOWS THE USER TO SPECIFY 
VARIABLE DATA FIELDS IN THE FORMAL DECLARATION. THE ACTUAL 
PARAMETERS PASSED TO THAT PROCEDURE WILL PROVIDE THE SPECIFICS. 
THUS FORMALS MAY BE DECLARED AS "BIT VARYING", "CHARACTER 
VARYING", OR "VARYING". 


IN A VARIABLE BIT OR CHARACTER FIELO, THE TYPE OF DATA PASSED 
MUST BE THAT WHICH IS SPECIFIED (1.E., BIT OR CHARACTER). THE 

LENGTH, HOWEVER, REMAINS VARIABLE. FORMALS SPECIFIED AS 
~ "VARYING" MAY ACCEPT ANY TYPE OF DATA OF ANY LENGTH. 


THE DATA TYPES OF CORRESPONDING FORMAL AND ACTUAL PARAMETERS 
WILL NOT BE CHECKED AT COMPILE TIME AND ONLY AT RUN TIME WHEN 
"FORMALCHECK" HAS BEEN SPECIFIED AS A CONTROL CARD OPTION. 


VARYING FORMALS MAY BE REMAPPED, BUT IT IS THE PROGRAMMER-S 
RESPONSIBILITY TO ENSURE THAT THE REMAPPED FORMAL PARAMETER AND 
[TS CORRESPONDING ACTUAL PARAMETER MATCH. A WARNING MESSAGE 
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WILL APPEAR IN THE SOURCE LISTING WHERE THE REMAPPING HAS 
OCCURRED. 


SDL ALSO ALLOWS FORMALLY DECLARED ARRAYS TO HAVE A_ VARIABLE 
NUMBER OF ELEMENTS BY SUBSTITUTING "*" FOR THE NUMBER FOLLOWING 
THE <ARRAY IDENTIFIER>. FOR INSTANCE: 


PROCEDURE X (A,B); 
FORMAL A (*) FIXED, B (*) VARYING; 
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INTRINSICS 


THE WORD "INTRINSIC" MAY BE USED INTERCHANGEABLY WITH THE WORD 
"PROCEDURE". IT 1S, HOWEVER, INTENDED ONLY FOR USE BY THE SDL 
GROUP IN ORDER TO PROVIDE SDL INTRINSICS. 


THE USE OF "INTRINSIC" FORCES THE INTRINSIC TO HAVE AS_ ENTRY 
POINT THE DISPLACEMENT G@ WITHIN A NEW SEGMENT. 


THE BODY OF THE PROCEDURE FOLLOWS THE HEADING. INCLUDED ARE 
DECLARATION OF LOCAL DATA (DISCUSSED UNDER "THE DECLARATION 
STATEMENT") , NESTED PROCEDURES (ALSO SEE "BASIC STRUCTURE OF 
THE SDL PROGRAM"), EXECUTABLE STATEMENTS, AND AN ENDING. THE 
SYNTAX FOR THE <PROCEDURE EXECUTABLE STATEMENT LIST> FOLLOWS: 


<PROCEDURE BODY> ::= <DECLARATION STATEMENT LIST> 
| | <PROCEDURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE | 
STATEMENT LIST> ::= <PROCEDURE EXECUTABLE STATEMENT > 
/ <PROCEDURE EXECUTABLE STATEMENT > 
<PROCEDURE EXECUTABLE STATEMENT LIST> 


<PROCEDURE EXECUTABLE 
STATEMENT> ::= <EXECUTABLE STATEMENT > 
/ <RETURN STATEMENT > 
/ <SEGMENT STATEMENT > 
<PROCEDURE EXECUTABLE STATEMENT > 


THE <EXECUTABLE STATEMENT>S WILL BE DISCUSSED IN THE SECTION 
ENTITLED “EXECUTABLE STATEMENTS". AS INDICATED BY THE ABOVE 
SYNTAX, EXECUTABLE STATEMENTS WITHIN A PROCEDURE MAY BE 
SEGMENTED. HOWEVER, A PROCEDURE MUST END IN THE SAME SEGMENT IN 
WHICH IT BEGINS. FOR OTHER SEGMENTATION RESTRICTIONS SEE "THE 
SEGMENT STATEMENT". 


THE SYNTAX FOR THE <RETURN STATEMENT> IS: 


<RETURN STATEMENT> ::= <TYPED PROCEDURE RETURN STATEMENT > 
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/ <NON-TYPED PROCEDURE RETURN STATEMENT> 


<TYPED PROCEDURE 
RETURN STATEMENT> ::= RETURN <EXPRESSION> 


<NON-TYPED PROCEDURE 
RETURN STATEMENT> ::= RETURN 
/ RETURN.AND.ENABLE. INTERRUPTS 


THE <RETURN STATEMENT> TAKES ONE OF TWO FORMS DEPENDING ON’ THE 
TYPE OF THE PROCEDURE ENCOMPASSING IT. IF THE PROCEDURE IS 
"TYPED", AN <EXPRESSION> MUST BE RETURNED TO THE POINT OF 
INVOCATION. IN A “NON-TYPED" PROCEDURE, ONLY A SIMPLE RETURN IS 
NEEDED. FOR EXPRESSION SPECIFICATIONS REFER TO THE SECTIONS 
ENTITLED "EXPRESSIONS" AND "PRIMARIES". 


TYPE CHECKING ON A <RETURN STATEMENT> IS DONE ONLY AT RUN TIME 
WHEN "FORMALCHECK" APPEARS AS A CONTROL CARD OPTION. 


WITHIN ANY GIVEN PROCEDURE (AT ANY LEXIC LEVEL), CERTAIN 
STATEMENTS ARE NESTED WITHIN OTHER STATEMENTS AND ARE ACCESSED, 
MUCH LIKE A PROCEDURE, BY AN ADDRESS GENERATED BY THE LARGER 
STATEMENT. THE MOST GENERAL NESTING LEVEL IS ZERO, AND THE 
NESTING LEVEL OF ANY STATEMENT APPEARS ON AN SDL LISTING UNDER 
THE COLUMN "NL". THE MOST COMMON INSTANCE OF STATEMENTS 
OCCURRING AT NESTING LEVEL 1 OR GREATER ARE: 


1. THE CONDITIONALLY EXECUTED STATEMENTS 


FOLLOWING "THEN" AND "ELSE" IN THE CIF 
STATEMENT>. 

Cr STATEMENTS CONTAINED WITHIN A <CASE 
STATEMENT >. 

3%. <DO-GROUP>S. 


IF THE COMPILER CANNOT FIND A <RETURN STATEMENT> ON NL O, IT 
WILL GENERATE ONE DIRECTLY PRECEDING THE <PROCEDURE ENDING>. 
THIS IS MERELY A SAFETY MEASURE TO INSURE THAT A PROCEDURE CAN 
ALWAYS BE PROPERLY EXITED. 


A COMPILER-GENERATED RETURN WORKS ESSENTIALLY IN THE SAME MANNER 
AS AN EXPLICIT RETURN. IN A NON-TYPED PROCEDURE, CONTROL IS 
RETURNED TO THE POINT OF THE PROCEDURE-S INVOCATION. IN A TYPED 
PROCEDURE, THE FOLLOWING VALUES ARE RETURNED. 
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IF THE PROCEDURE IS TYPED: THE COMPILER WILL RETURN: 
BIT BITS CONTAINING 0 

| | OF LENGTH SPECIFIED 
CHARACTER BLANKS OF LENGTH SPECIFIED 
FIXED FIXED ZERO 
BIT VARYING 8-BITS OF ZERO 
CHARACTER VARYING ONE BLANK 
VARY ING | FIXED ZERO 


RETURN.AND.ENABLE. INTERRUPTS IS FOR MCP USE ONLY. IT WILL CAUSE 
A NORMAL PROCEDURE EXIT TO TAKE PLACE, AND WILL ENABLE 
INTERRUPTS AS WELL. 


THE <PROCEDURE ENDING> IS THE FINAL STATEMENT OF A PROCEDURE, 
AND THE SYNTAX IS: 


<PROCEDURE ENDING> ::= END 
/ END <PROCEDURE IDENTIFIER> 


THE IDENTIFIER FOLLOWING THE RESERVED WORD "END" IS OPTIONAL. 
ITS SOLE PURPOSE IS TO SIMPLIFY THE DOCUMENTATION OF THE 
PROGRAM. IF AN IDENTIFIER IS SUPPLIED BY THE USER, THE COMPILER 
WILL PERFORM A SYNTAX CHECK TO GUARANTEE THAT THE <PROCEDURE 
ENDING> IS APPROPRIATELY PLACED. — | 


ASSIGNMENT STATEMENTS AND EXPRESSIONS 


— ae ce eum ee ace ae eee eee ae ame ome aur cD cam eu euP que ce com cmt ae Ge ae ot ae Ge cone GED cae OEP ame owe ae eee oe 


<ASSIGNMENT STATEMENT> ::= <ADDRESS VARI ABLE> 
7 <REPLACE > 
<EXPRESSION> 
<ADDRESS VARIABLE> ::= SEE "ADDRESS VARIABLES" 
<REPLACE> ::= +/ ;= 
<EXPRESSION LIST> ::= <EXPRESSION> 


/ <EXPRESSION>D, 
<EXPRESSION LIST> 


<EXPRESSION>D ::= <STRING EXPRESSION> 
/ <STRING EXPRESSION> 
CAT <EXPRESSION> 


<STRING EXPRESSIOND ::= <LOGICAL FACTOR> 
/ <LOGICAL FACTOR> 
<OR-ING OPERATOR> 
<STRING EXPRESSION> 


<OR-ING OPERATOR> ::= OR / EXOR 
<LOGICAL FACTOR> ::= <LOGICAL SECONDARY> 


/ <LOGICAL SECONDARY > 
AND <LOGICAL FACTOR> 


<LOGICAL SECONDARY> ::= <LOGICAL PRIMARY> 
/ NOT <LOGICAL PRIMARY> 
<LOGICAL PRIMARY> ::= <ARITHMETIC EXPRESSION> 
: / <ARITHMETIC EXPRESSION> 
<RELAT ION> 


<ARITHMETIC EXPRESSION> 


<RELATION>D ::= { / § FJ = 4S # SF 2 
LSS / LEQ / EQL / NEQ 
GEQ / GTR 
<ARITHMETIC 
EXPRESSION> ::= <TERM> 
/ <TERM> 


<ADDITIVE OPERATOR> 
<ARITHMETIC EXPRESSION> 


<ADDITIVE OPERATOR> ::= “i cf 
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<TERM>: := <SIGNED PRIMARY. 
| / <SIGNED PRIMARY> 
<MULTIPLICATIVE OPERATOR> 


<TERM> 
<MULTIPLICATIVE | | 
OPERATOR> ::= a * / MOD / <SLASH> 
<SIGNED PRIMARY): := <PRIMARY > | 
/ <SUNARY OPERATOR> 
<PRIMARY > 
<UNARY OPERATOR>D ::= +f = 


THE ALGORITHM WHICH COMPILES AN SDL EXPRESSION MAY BE BEST 
UNDERSTOOD IN TERMS OF POLISH POST-FIX NOTATION. POLISH 
NOTATION IS AN ARITHMETICAL OR LOGICAL SYSTEM USING ONLY 
OPERANDS AND OPERATORS ARRANGED IN A SEQUENCE WHICH ELIMINATES 
THE NECESSITY OF PRIMARY BOUNDARIES (1.E., PARENTHESES). 


_ IN POLISH, OPERANDS ARE EMITTED IN THE SAME LEFT TO RIGHT ORDER 
THAT THEY APPEAR IN THE EXPRESSION. OPERATORS ARE EMITTED 
ACCORDING TO THE RULES OF OPERATOR PRECEDENCE DEFINED BY SDL. 


NOTE THAT THE END RESULTS OF THE EVALUATION OF AN SDL EXPRESSION 
AND ITS POLISH EQUIVALENT WILL ALWAYS BE THE SAME. HOWEVER, FOR 
OPTIMUM USE OF THE EVALUATION STACK, THE COMPILER MAY NOT LOAD 
THE OPERANDS IN THE EXACT ORDER INDICATED BY THE POLISH STRING. 


THE PRECEDENCE OF ANY OPERATOR IS DETERMINED BY COMPARING IT 
WITH THE FIRST OPERATOR TO ITS LEFT. FIGURE 3 SHOWS THE 
PRECEDENCE RELATIONSHIP BETWEEN ANY TWO OPERATORS WHICH MAY 
APPEAR IN AN SDL EXPRESSION. 


THE FOLLOWING ALGORITHM IS USED TO CONVERT AN SDL EXPRESSION 
INTO A POLISH STRING, AND REPRESENTS THE: LOGIC BY WHICH THE 
COMPILER TRANSLATES AN EXPRESSION. NOTE THAT THIS IS 
FUNCTIONALLY WHAT THE COMPILER DOES, NOT WHAT IT ACTUALLY DOES. 


1, GET TOKEN FROM EXPRESSION. | 


2. IF TOKEN = OPERAND, THEN PLACE IN POLISH 
7 STRING AND GO TO 1. 


Si IF TOKEN (IE., PRESENT OP) = RIGHT PAREN, THEN 
IF (TOKEN TOP OF STACK) (IE., PREVIOUS OP) = 
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LEFT PAREN, THEN POP STACK AND GO TO 1. 


the. IF TOKEN = ET AND [TOP OF STACK] = BT, THEN 
EXIT. : 

2% IF PRECEDENCE {TOP OF STACK] < PRECEDENCE 
(TOKEN), THEN PUT TOKEN ON TOP OF STACK AND GO 
TO 1. 

6. IF PRECEDENCE [TOP OF STACK] > PRECEDENCE 


[TOKEN], THEN PUT [TOKEN TOP OF STACK] IN 
POLISH AND GO TO 3. 


THE FOLLOWING IS A LIST OF THE SDL OPERATORS FROM HIGHEST 
PRECEDENCE TO LOWEST. THIS LIST OR THE TABLE IN FIGURE 3 MAY BE 
USED WHEN EVALUATING AN EXPRESSION. 


+, — (UNARY) 
*, /, MOD 
+, - (BINARY) 
<5 Rage Hy. Fe ee. D 
NOT 
AND 
OR, EXOR 
CAT 
Ls THE ASSIGNMENT OPERATOR HAS HIGHER PRECEDENCE 


THAN ANY OPERATOR TO ITS LEFT AND LOWER 
PRECEDENCE THAN ANY TO ITS RIGHT. 


rode THE ORDER OF EVALUATION OF OPERATORS HAVING 
EQUAL PRECEDENCE IS ALWAYS FROM LEFT TO RIGHT. 
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a 
O 
—_ 
z 
lJ 
Ww 
Lil 
ar 
QO. 


OR CAT 


NOT AND 


PRECEDENCE <PREVIOUS OP> <RELATIOND PRECEDENCE <PRESENT OP> 


FORMULA : 


UNARY OPERATORS 


NEG 


NOTE: 


MULTIPLICATIVE OPERATORS 
RELATIONAL OPERATORS 

REPLACE OPERATORS | 
INFERRED BEGINNING TERMINATOR 
INFERRED ENDING TERMINATOR 


FIG 3. OPERATOR PRECEDENCE TABLE 
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UNARY OPERATOR 


THE UNARY OPERATOR ACTS UPON ONE OPERAND AND MAY NEVER APPEAR AS 
AN INF IX OPERATOR BETWEEN TWO OPERANDS. IT MAY APPEAR TO THE 
RIGHT OF ANY OTHER OPERATOR, INCLUDING ITSELF. 


THE UNARY MINUS (-) GENERATES THE TWO-S COMPLEMENT OF THE 
OPERAND ASSOCIATED WITH IT (1.E., -X = (NOT X)+1). THE OPERAND 
MAY BE ANY DATA TYPE. IF IT IS FIXED, THE UNARY MINUS HAS THE 
EFFECT OF REVERSING THE SIGN, AND THE RESULT IS LABELED ON THE 
EVALUATION STACK AS FIXED. 


IF THE OPERAND IS EITHER A CHARACTER OR BIT STRING, ONLY THE 
LOW-ORDER e4 BITS WILL BE EVALUATED. STRINGS LESS THAN e4 BITS 
WILL BE PADDED WITH LEADING ZEROES TO e4 BITS. THE TWO-S 
COMPLEMENT OF THE STRING IS GENERATED AND RETURNED TO THE STACK 
AS TYPE BIT. NOTE, HOWEVER, THAT THE NEGATION OF ANY BIT OR 
CHARACTER STRING CAN NEVER RESULT IN A VALUE LESS THAN ZERO. 


THE SDL COMPILER GENERATES NO CODE FOR THE UNARY PLUS (+) WHICH 
EXISTS SOLELY FOR THE CONVENIENCE OF THE PROGRAMMER. 


ARITHMETIC OPERATORS 


+ ADDITION 

m3 SUBTRACTION 

* MULTIPLICATION 

MOD DIVISION YIELDING INTEGER VALUE OF REMAINDER 
/ DIVISION YIELDING INTEGER VALUE OF QUOTIENT 


THE ARITHMETIC OPERATORS PERFORM eC4-BIT ARITHMETIC ON _ TWO 
OPERANDS OF ANY OF THE THREE DATA TYPES. SIGN ANALYSIS WILL BE 
DONE ONLY IF BOTH OPERANDS ARE FIXED. WITH ANY OTHER 
COMBINATION OF DATA TYPES, THE MAGNITUDES OF THE OPERANDS ARE 
EVALUATED. | 
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FOR BOTH BIT AND CHARACTER DATA, IF THE FIELD IS GREATER THAN e4 
BITS, ONLY THE LOW-ORDER 24 BITS WILL BE EVALUATED. IF THE 
FIELD IS LESS THAN 24 BITS, LEADING ZEROES WILL BE SUPPLIED 
FROM THE LEFT. 7 


A 24+-BIT RESULT WILL BE RETURNED TO THE EVALUATION STACK. IF 
BOTH .OPERANDS ARE FIXED,. THE RESULT WILL BE FIXED. OTHERWISE, 
THE RESULT WILL BE TYPE BIT. 


SDL DIVISION RESULTS IN AN INTEGER VALUE. ANY REMAINDER IS 
TRUNCATED THUS: 

7 3 c 
3 7 0 


/ 
/ 
THE MOD OPERATION IS DIVISION RESULTING IN THE INTEGER VALUE OF 
THE REMAINDER. IT IS EVALUATED BY THE FOLLOWING FORMULA WHERE 
SIGN(Y) = -1, IF Y<O OR, +1 IF Y2O: 

Y MOD Z = Y-Z*(SIGN(Y/Z) * ABSOLUTE VALUE (Y/Z)) 


FOR EXAMPLE: 


7 MOD $ = 7-3 * (+1 * ABS e@) = #1 

-7 MOD 3 = -7-3 * (-1 * ABS(-e2)) = -1 
3 MOD -7 = 3--7 * (-1 * ABS 0) = +3 
-3 MOD -7 = 


-3--7 * (+1 * ABS 0) = -3 


RELATIONAL OPERATORS 


= EQL EQUAL TO 

# NEQ NOT EQUAL TO 

> GTR GREATER THAN 

< LSS LESS THAN 

2 GEQ GREATER THAN OR EQUAL TO 
§ LEQ = LESS THAN OR EQUAL TO 


THE RELATIONAL OPERATORS DO A COMPARISON BETWEEN TWO OPERANDS OF 
ANY DATA TYPE. A 1-BIT RESULT IS RETURNED -- @©(1)10 IF THE 
CONDITION IS TRUE, @(1)0@ IF THE CONDITION IS FALSE. 
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IF BOTH OPERANDS ARE FIXED, THE OPERATOR DOES A TRUE SIGNED 
COMPARE . IF BOTH OPERANDS ARE CHARACTER STRINGS, THE SHORTER 
ONE IS PADDED ON THE RIGHT WITH BLANKS, AND A_ CHARACTER BY 
CHARACTER MAGNITUDE COMPARE BY COLLATING SEQUENCE IS DONE. 


FOR ALL OTHER OPERAND COMBINATIONS, LEADING ZEROES ARE SUPPLIED 
TO THE SHORTER OF THE TWO. NO SIGN ANALYSIS IS DONE, AND 
OPERANDS ARE TREATED AS POSITIVE MAGNITUDES. 


LOGICAL OPERATORS 


THE LOGICAL OPERATORS PERFORM A BIT BY BIT ANALYSIS ON ALL THREE 
DATA TYPES. “NOT” IS CONSIDERED TO BE A UNARY OPERATOR, AND MAY 
APPEAR TO THE RIGHT OF ANY OTHER OPERATOR (INCLUDING ITSELF). 


THE OTHER OPERATORS REQUIRE TWO OPERANDS. THE SHORTER OF THE TWO 
IS PADDED ON THE LEFT WITH ZEROES TO DUPLICATE THE LENGTH OF 

THE LARGER. THE FOLLOWING CHART ILLUSTRATES THE USE OF EACH 

OPERATOR. 


IF X = 00101110 AND Y = 10101100 THEN 
NOT X = 11010001 
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X AND Y = 00101100 
X OR Y= 10101110 
X EXOR Y = 10000010 


REPLACE OPERATORS 


<ASSIGNMENT STATEMENT> ::= <ADDRESS VARIABLE > 
<REPLACE > 
<EXPRESSION> 


<REPLACE> ::= +/ = 


<ASSIGNOR> ::= | <ADDRESS VARIABLE > 
<NON-DESTRUCTIVE RELACE> 
<EXPRESSION> 


<NON-DESTRUCT IVE . , 
REPLACE> ::= <REPLACE, DELETE LEFT PART> 
/ <REPLACE, DELETE RIGHT PART> 


<REPLACE, DELETE 
LEFT PART> ::= @#/ ;= 


<REPLACE, DELETE 
RIGHT PART> ::= <a-/ 33s 


THERE ARE TWO BASIC TYPES OF REPLACE OPERATORS: THE DESTRUCTIVE 
<REPLACE> ASSOCIATED WITH THE <ASSIGNMENT STATEMENT>, AND THE 
<NON-DESTRUCT IVE REPLACE> WHICH OCCURS ONLY WITHIN AN 
EXPRESSION. 


THE DESTRUCTIVE <REPLACE> OPERATOR CAUSES THE EXPRESSION ON ITS 
RIGHT TO "REPLACE" THE VARIABLE ON ITS LEFT. THE EVALUATION 
STACK IS FLUSHED SINCE THIS REPLACE IS NECESSARILY THE LAST 
OPERATION IN THE STATEMENT. — 


THE <NON-DESTRUCTIVE REPLACE> TAKES TWO FORMS: "DELETE LEFT" AND 
"DELETE RIGHT". THE "DELETE LEFT" CAUSES THE EXPRESSION TO THE 
RIGHT OF THE OPERATOR TO REPLACE THE VARIABLE ON ITS LEFT. THE 
VARIABLE IS THEN DELETED FROM THE TOP OF THE EVALUATION STACK, 
AND THE EXPRESSION IS LEFT ON THE TOP OF THE STACK. 
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THE "DELETE RIGHT” CAUSES THE SAME REPLACEMENT. HOWEVER, THE 
EXPRESSION TO THE RIGHT OF THE OPERATOR IS DELETED FROM THE 
EVALUATION STACK, AND THE VARIABLE TO THE LEFT REMAINS ON’ THE 
TOP OF THE STACK. 


THE FOLLOWING EXAMPLE ILLUSTRATES THE USE OF THE <NON- 
DESTRUCTIVE REPLACE>: 


PROCEDURE GOOD BIT VARYING; 
DECLARE X BIT(48); 
RETURN X ::= "RESULT"; 

END GOOD; | 

PROCEDURE BAD BIT VARYING; 
DECLARE Y BIT(48); 
RETURN Y := "RESULT"; 

END BAD; 


PROCEDURE GOOD WILL EXECUTE PROPERLY SINCE X, DECLARED AS BIT, 
IS) ASSOCIATED WITH THE PROCEDURE TYPE--BIT VARYING. NOTICE, 
HOWEVER, THAT IN PROCEDURE BAD, Y IS DELETED FROM THE STACK AND 
THE CHARACTER STRING “RESULT” REMAINS. UNLESS THE CONTROL CARD 
OPTION "FORMALCHECK" IS SET AT COMPILE TIME, THERE WILL BE NO 
INDICATION THAT THE DATA TYPES (AS IN PROCEDURE BAD) DO NOT 
MATCH THE PROCEDURE TYPE. IF "FORMALCHECK" IS SPECIFIED, THE 
FOLLOWING EXECUTE TIME ERROR MESSAGE WILL BE PRINTED: 


"TYPE ERROR IN RETURNED VALUE" 


IF BOTH OPERANDS ASSOCIATED WITH ANY REPLACE OPERATOR ARE 
CHARACTER FIELDS, AND THE RECEIVING FIELD IS LONGER THAN’ THE 
SENDING FIELD, TRAILING BLANKS WILL BE ADDED. IF THE RECEIVING 
FIELD IS SHORTER, CHARACTERS WILL BE TRUNCATED FROM THE RIGHT. 


WITH EVERY OTHER COMBINATION OF DATA TYPES, WHEN THE RECEIVING 
FIELD IS NOT EQUAL IN LENGTH TO THE SENDING FIELD, LEADING 
BINARY ZEROES WILL BE APPENDED TO THE LARGER RECEIVING FIELD, 
OR. HIGH-ORDER BITS ARE TRUNCATED FROM THE LARGER SENDING FIELD. 


ALSO SEE THE REVERSE STORE OPERATION IN THE SECTION ENTITLED 
"EXECUTE-FUNCTION STATEMENT" . 
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CONCATENATION 


DATA ITEMS MAY BE LINKED TOGETHER (CONCATENATED) BY USING THE 
"CAT" OPERATOR. ALTHOUGH THIS OPERATOR IS INTENDED TO 
CONCATENATE BIT STRINGS OR CHARACTER STRINGS, IT MAY BE USED 
WITH ANY COMBINATION OF DATA TYPES. THE RESULT OF ANY 
CONCATENATION MAY NOT BE GREATER THAN 8191 CHARACTERS OR 65535 
BITS. 


IF ALL THE OPERANDS ARE CHARACTER STRINGS, THE RESULT [5S A 
CHARACTER STRING. FOR ANY OTHER COMBINATION OF DATA TYPES, THE 8 © 
RESULT 1S A BIT STRING. FOR EXAMPLE: | 


LET A= "B" 1 CHARACTER 
B = @(1)101¢e 3 BITS 
C = +10 FIXED 
THEN 
B CAT B = @(1)101101¢ | BIT STRING, LENGTH 6 
A CAT A = "BB" | CHARACTER STRING, LENGTH: 2 
A CAT B = @(1)11000010101@ BIT STRING, LENGTH 11 
B CAT C = 6(3)500000012e BIT STRING, LENGTH 27 


(EXPRESSED IN OCTAL) 


ea 


PRIMARY ELEMENTS OF THE EXPRESSION 


<PRIMARY> ::= <CONSTANT > 

<VART ABLE > 
(<EXPRESSION> ) 
<CONDITIONAL EXPRESSION) 
<CASE EXPRESSION> 
<BUMPOR > 

<DECREMENTOR> 

<ASSIGNOR> 


~ NN RR 


<VARIABLE> ::= <ADDRESS VARIABLE > 
/ <VALUE VARIABLE> 


A PRIMARY IS THE MOST BASIC COMPONENT OF THE SDL EXPRESSION. TO 
AVOID UNNECESSARY REPETITION, SEE "BASIC COMPONENTS OF THE SDL 
LANGUAGE " FOR DISCUSSION OF CONSTANTS, AND SEE "ADDRESS 
VARIABLES" AND "VALUE VARIABLES" FOR DISCUSSION OF VARIABLES. 


CONDITIONAL EXPRESSION 


<CONDI TIONAL 
EXPRESSION> ::= IF <EXPRESSION>D 
: THEN <EXPRESSION> 
ELSE <EXPRESSION> 


THE EXPRESSION FOLLOWING THE RESERVED WORD "IF" IS EVALUATED. IF 
THE LOW-ORDER BIT OF THE RESULT IS 1, THE EXPRESSION FOLLOWING 

"THEN" [IS EVALUATED. IF IT IS ZERO, THE EXPRESSION FOLLOWING 

"ELSE" IS EVALUATED. UNLIKE THE <IF STATEMENT>, THE "ELSE" PART 

OF THE EXPRESSION MUST BE PRESENT. 
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CASE EXPRESSION 


CASE <EXPRESSIOND 
OF (<EXPRESSION LIST>) 


<CASE EXPRESSIOND> 


<EXPRESSION> 
/ <EXPRESSIOND, 
<EXPRESSION LIST> 


<EXPRESSION LIST> 


IN THE <CASE EXPRESSION>, THE VALUE OF THE <EXPRESSION> 
FOLLOWING THE RESERVED WORD "CASE" IS USED AS AN INDEX INTO THE 
LIST OF EXPRESSIONS. THE EXPRESSION THUS SELECTED IS EVALUATED, 
AND THE OTHER EXPRESSIONS IN 1HE LIST IGNORED. THE RANGE OF THE 
INDEX IS FROM ZERO TO N-1, WHERE N IS THE NUMBER OF 
<EXPRESSIONDS IN THE LIST. AN EXAMPLE OF AN <ASSIGNMENT 

we? CONTAINING ms <CASE EXPRESSION> FOLLOWS: | 


A:=CASE I OF (A+B, A- -B, A*B, ie: A MOD B). 
~ CASE J OF (Q*F- =e 9, 34+B, (A+B) MOD B, ) 


IF [= =2 AND J=3, THE STATEMENT WILL BE EVALUATED AS FOLLOWS: 


A:=(A*B) + (A+B) MOD B; 


BUMP 

<BUMPOR> ::= BUMP <ADDRESS VARIABLE> 
, <MODIF IER> 

<MODIFIER> ::= | <EMPTY> 


/ BY <EXPRESSION> 


BUMPOR LEAVES ON THE EVALUATION STACK, A DESCRIPTOR OF THE 
VARIABLE WHICH HAS BEEN INCREMENTED BY THE VALUE OF THE 
MODIFYING <EXPRESSION>. IF <MODIFIER> IS <EMPTY>, THEN THE 
VARIABLE IS INCREMENTED BY 1. THE RESULTS OF THE FOLLOWING 
EXPRESSIONS (WHERE A IS AN <ARRAY IDENTIFIER>) ARE EQUIVALENT: 
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BUMP A(X+Y) BY N 
ACX+Y¥) 3::= ACX+Y) + N 


THE ADVANTAGE OF USING <BUMPOR> IS THAT THE CODE FOR PUTTING THE 
DESCRIPTOR ON THE STACK IS EXECUTED ONLY ONCE. THUS IT IS MORE 
EFFICIENT. 


LIKE ANY VARIABLE, (<BUMPOR>) WILL CAUSE A VALUE TO BE LOADED TO 
THE TOP OF THE STACK. HENCE: 


P(BUMP X BY C-D); 
PASSES X BY ADDRESS BUT, 


P( (BUMP X BY C-D)); 
PASSES X BY VALUE. 


<BUMPOR> OPERATES ON ALL THREE DATA TYPES. CHARACTER STRINGS ARE 
TREATED AS IF THEY WERE BIT STRINGS. FOR FIELDS GREATER THAN e4 
BITS, ONLY THE LOW-ORDER 24 BITS ARE EVALUATED. IF THE FIELD IS 
LESS THAN 24 BITS, IT IS PADDED WITH LEADING ZEROES TO e4 BITS. 


DECREMENT 

<DECREMENTOR> = DECREMENT <ADDRESS VARIABLE> 
<MODIF IER> 

<MODIFIERD ::= <EMPTY> 


BY <EXPRESSION> 


THE <DECREMENTOR> WORKS EXACTLY LIKE <BUMPOR> EXCEPT THAT THE 
VARIABLE IS DECREASED BY THE VALUE OF THE <EXPRESSION>. SEE 
ABOVE . 
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ASSIGNOR 

<ASSIGNOR> :;:= | <ADDRESS VARIABLE> 
<NON-DESTRUCTIVE REPLACE > 
<EXPRESSION> | 


<NON-DESTRUCT I VE 
REPLACE> ::= <REPLACE, DELETE LEFT PART > 
/ <REPLACE, DELETE RIGHT PART> 


<REPLACE, DELETE 
LEFT PART> ::= <«/ :;= 


_ REPLACE, DELETE 
RIGHT PART> ::= s@—/ 33 


WITH THE EXCEPTION OF THE <NON-DESTRUCTIVE REPLACE> OPERATOR, 
THE <ASSIGNOR> PERFORMS THE SAME FUNCTION AS THE <ASSIGNMENT 
STATEMENT>. ALL THE RULES WHICH APPLY TO THE <ASSIGNMENT 
STATEMENT> ALSO APPLY TO THE <ASSIGNOR>. FOR DISCUSSION OF THE 
<NON-DESTRUCTIVE REPLACE>, SEE THE SECTION ENTITLED "THE 
REPLACE OPERATOR". 


ADDRESS VARIABLES 


<ADDRESS VARIABLE > <SIMPLE VARIABLE > 


/ <SUBSCRIPTED VARIABLE> 
/ <INDEXED VARIABLE> 
/ <ADDRESS-GENERATING FUNCTION DESIGNATOR> 


<SIMPLE VARIABLE> ::= <SIMPLE IDENTIFIER>D 

<SIMPLE IDENTIFIER>D ::= <IDENTIFITER>D 

<SUBSCRIPTED VARIABLE> ::= <ARRAY IDENTIFIER>(<EXPRESSION>) 
CARRAY IDENTIFIERD ::= <IDENTIFIERD 


AS NOTED ABOVE, <ADDRESS VARIABLE>S MAY TAKE THE FORM OF A 
<SIMPLE IDENTIFIER>, OR AN <ARRAY IDENTIFIER> FOLLOWED BY AN 
(<EXPRESSION>) DESIGNATING THE ARRAY ELEMENT IN QUESTION. IN 
ADDITION, SIMPLE AND ARRAY IDENTIFIERS MAY BE INDEXED. 


INDE XING 

< INDEXED VARIABLE> ::= <SIMPLE IDENTIFIER> <INDEX PART> 
/ <ARRAY IDENTIFIER> <INDEX PART> 

<INDEX PART> ::= [<EXPRESSION LIST? ] 


EACH OF THE EXPRESSIONS IN THE <INDEX PART> IS EVALUATED, AND 
THE SUM OF THESE IS FORMED. THIS WILL BE CALLED THE INDEX. 
THE INDEXING OPERATION OCCURS FUNCTIONALLY AS FOLLOWS: 


Ls THE SIMPLE OR ARRAY DESCRIPTOR IS LOADED TO 
THE TOP OF THE EVALUATION STACK. 


2. «IF THE DESCRIPTOR IS AN ARRAY DESCRIPTOR, THEN 
IT IS CONVERTED TO A SIMPLE DESCRIPTOR WHICH 
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DESCRIBES THE FIRST (ZERO) ELEMENT OF THE 
ARRAY. | _ 


Ss THE ADDRESS FIELD OF THE DESCRIPTOR IS 
MODIFIED BY ADDING TO IT THE INDEX. | 


NOTE THAT SELF-RELATIVE DATA ITEMS (1.E., DATA ITEMS WHOSE 
LENGTH IS NOT GREATER THAN 24, WHICH ARE NOT IN A STRUCTURE, 


AND WHICH DO NOT REMAP SOME OTHER DATA ITEM) MAY NOT BE 
INDEXED. | : 


THERE ARE TWO METHODS OF INDEXING: 


THE DESCRIPTOR PROVIDES THE ADDRESS, AND THE 
INDEX PROVIDES THE OFFSET FROM THIS ADDRESS. 


ma THE DESCRIPTOR PROVIDES THE OFFSET, AND THE 
- INDEX PROVIDES THE ADDRESS. 


EXAMPLE: 


FIELD D MAY BE ACCESSED USING EITHER METHOD (1) OR METHOD (2). 
ASSUME N CONTAINS THE OFFSET TO B. 


METHOD (1): 


DECLARE 
01 A BIT(5000), 
Oe BB, 
03 Cc BIT(5), 
03 DD BIT(e), 
03 EE BIT(3), 
N BIT(C4), 
X BIT(e); 
/* THE NEXT STATEMENT WILL MOVE DD (WITH THE OFFSET 
GIVEN BY N) INTO X #*/ 
X@#DDIN]; 


METHOD (2): 


DECLARE 
A BIT(5000), 
01 BB REMAPS BASE, 
O02 CC BIT(S5), 
02 DD BIT(e), 
O02 EE BIT(3), 
N BIT(24), 
X BIT(2); 
/* THE NEXT STATEMENT WILL MOVE DD 
(WITH THE OFFSET GIVEN BY N) INTO X #*/ 
X+DDIN, DATA.ADDRESS(A) 1); 


NOTE THE FOLLOWING: 


be THE STRUCTURE ABOVE, COMPRISED OF BB, CC, DD, 
AND EE, WHICH REMAPS BASE IS CALLED A 
"TEMPLATE". 

— THIS TEMPLATE MAY BE APPLIED TO ANY DATA AREA 


MERELY BY PROVIDING THE ADDRESS AS PART OF THE | 


INDEX. THIS IS NOT THE CASE WHEN METHOD(1) 
INDEXING IS USED. 


5. THE EXAMPLE ABOVE IS CONTRIVED -- IN METHOD 
te); IF N CONTAINED THE ADDRESS OF B- RATHER 
THAN THE OFFSET TO B FROM THE BEGINNING OF A, 
THEN THE STATEMENTS WHICH STORE D INTO X WOULD 
BE IDENTICAL: X«DDIN]; 
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ADDRESS GENERATING FUNCTIONS 


<ADDRESS-GENERAT ING 
FUNCTION DESIGNATOR> 


<SUB-STRING ADDRESS DESIGNATOR> 
/ <FETCH COMMUNICATE MESSAGE 
— POINTER DESIGNATOR> : 
/ <DESCRIPTOR DESIGNATOR> 
/ <DESCRIPTOR-GENERATOR DESIGNATOR> 
/ <ADDRESS-MODIFIER DESIGNATOR> 


SUBBIT AND SUBSTR 


<SUB-STRING ADDRESS | 
DESIGNATOR> ::= <SUB-STRING FUNCTION IDENTIFIER> 
| (<STRING ADDRESS> ,<OFFSET PART>) 
/ <SUB-STRING FUNCTION IDENTIFIER> 
(<STRING ADDRESS>, <OFFSET PART>, 
<LENGTH PART>) 


<SUB-STRING FUNCTION 


IDENTIFIER> ::= SUBBIT / SUBSTR 
<STRING ADDRESS> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR> ::= SEE "ADDRESS GENERATOR" 
<OFFSET PART> ::= <EXPRESSION> 

<LENGTH PART> ::= <EXPRESSION> 


SUBSTR YIELDS A SUB-STRING OF A CHARACTER STRING IDENTIFIED BY 
THE <STRING ADDRESS>. THE BEGINNING CHARACTER OF THE SUB-STRING. 
IS SPECIFIED BY THE <OFFSET PART> (WHERE THE FIRST CHARACTER OF 
THE STRING IS ZERO). THE <LENGTH PART> SPECIFIES THE LENGTH OF 
THE SUB-STRING. IF OMITTED, THE REST OF THE STRING FROM THE 
"OFFSET" CHARACTER IS ASSUMED. FOR EXAMPLE: 


Le 


IF X<+"CHARACTER" 
C="COALITION" 

THEN 
SUBSTR(X,4)<+ SUBSTR(C,0,4) 

YIELDS THE CHARACTER STRING: 
"CHARCOAL " | 


LIKE ALL CHARACTER-TO-CHARACTER STORE OPERATIONS, IF THE 
RECEIVING FIELD IS LARGER THAN THE SENDING FIELD, THE SENDING 
FIELD IS PADDED WITH BLANKS ON THE RIGHT. IF THE SENDING FIELD 
IS LONGER, CHARACTERS ARE TRUNCATED FROM THE RIGHT. NOTE THAT 
THIS IS A FUNCTION OF THE STORE OPERATOR AND NOT SUBSTR. 


SUBBIT YIELDS A SUB-STRING OF A BIT STRING IDENTIFIED BY THE 
<STRING ADDRESS>. THE BEGINNING BIT OF THE SUB-STRING IS 
SPECIFIED BY THE <OFFSET PART> (NOTE: THE FIRST BIT OF THE 
STRING IS 0). THE LENGTH OF THE SUB-STRING IS SPECIFIED BY THE 
<LENGTH PART> WHICH, IF OMITTED, WILL BE ASSUMED TO BE THE REST 
OF THE STRING. 


EXAMPLE: 


IF A*-@(1) 00101011010 
B~+-@(1)0000111101¢ 
THEN 
SUBBIT(A,2,3) CAT SUBBIT(B,5) 
RESULTS IN: 
@(1)10111101¢ 
AND 
SUBBIT(A,3) CAT SUBBIT(B,0,6) 
RESULTS IN: 
@®(1)0101101000011¢ 


FETCH.COMMUNICATE.MSG.PTR 


<FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATOR> ::= FETCH. COMMUNICATE .MSG.PTR 


SEE THE B1700 MCP REFERENCE MANUAL FOR A DESCRIPTION OF THE RUN 
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STRUCTURE . 


IF THE RS.MCP.BIT IS SET, THEN RS. COMMUNICATE. MSG. PTR 1S. 
ACCESSED. OTHERWISE, RS.REINSTATE.MSG.PTR IS ACCESSED. THE 
ACCESSED FIELD IS ASSUMED TO BE A DESCRIPTOR AND IS PLACED ON 
THE TOP OF THE EVALUATION STACK. 


EXAMPLE : ; 
DESCRIPTOR(COMM. MSG) FETCH.COMMUNICATE.MSG.PTR; 


COMM.MSG NOW DESCRIBES THE COMMUNICATE MESSAGE, ASSUMING THAT 
THE MESSAGE WAS DESCRIBED BY A NON-SELF-RELATIVE DESCRIPTOR. 


DESCRIPTORS 


<DESCRIPTOR DESIGNATOR>::= DESCRIPTOR (<SIMPLE IDENTIFIER>) 
/ DESCRIPTOR (<ARRAY IDENTIFIER>) 


"DESCRIPTOR" PLACES ON THE EVALUATION STACK, A DESCRIPTOR WHICH 
DESCRIBES _THE DESCRIPTOR OF A <SIMPLE IDENTIFIER> OR AN <ARRAY 
IDENTIFIER>. THE DESCRIPTOR FUNCTION MAY APPEAR AS THE OBJECT 
OF A REPLACEMENT, THEREBY PROVIDING EASY ACCESS TO ANY PART OF 
A DESCRIPTOR. 


EXAMPLE : 
1. SUBBIT(DESCRIPTOR(X) ,4,2)+e; 
rade DESCRIPTOR(X)< DESCRIPTOR(Y) ; 
EXAMPLE (2) FORCES BOTH X AND Y TO DESCRIBE 
THE SAME DATA NAME. NOTE, HOWEVER, THAT IF X 


AND Y ARE NOT EITHER BOTH SIMPLE ITEMS OR BOTH 
ARRAYS, THE RESULT WILL BE INCORRECT. 
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MAKE .DESCRIPTOR 


<DESCRIPTOR-GENERATOR 
DESIGNATOR> ::= MAKE .DESCRIPTOR(<EXPRESSION> ) 


THE VALUE WHICH IS GENERATED BY THE <EXPRESSION> IS ASSUMED TO 
BE A DESCRIPTOR. THIS DESCRIPTOR REPLACES ON THE EVALUATION 
STACK, THE DESCRIPTOR REPRESENTING THAT <EXPRESSION>. IF THE 
NAME-VALUE BIT OF THE EXPRESSION-S DESCRIPTOR ON THE EVALUATION 
STACK IS SET, THEN THE VALUE OF THE <EXPRESSION> IS REMOVED 
FROM THE VALUE STACK. 


A <DESCRIPTOR GENERATOR DESIGNATOR> MAY APPEAR AS THE OBJECT OF 
A REPLACEMENT, HOWEVER THE PROGRAMMER IS RESPONSIBLE TO SEE 
THAT THE DESCRIPTOR BUILT GENERATES AN ADDRESS. THERE IS NO 
SYNTAX CHECK FOR THIS. 


THE FOLLOWING EXAMPLES ILLUSTRATE THE RELATIONSHIPS BETWEEN THE 
DESCRIPTOR FUNCTIONS: 


DESCRIPTOR(X)=VALUE .DESCRIPTOR(X) , 
WHERE X IS NON-SELF-RELATIVE 


MAKE.DESCRIPTOR (DESCRIPTOR(X)) = X, 
WHERE X IS NON-SELF-RELATIVE 


MAKE .DESCRIPTOR (VALUE .DESCRIPTOR(E)) = E, 
WHERE E IS AN <ADDRESS GENERATOR> 


VALUE .DESCRIPTOR (MAKE .DESCRIPTOR(E)) =€E, 
WHERE THE VALUE OF E IS A VALID <ADDRESS GENERATOR> 
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NEXT-PREVIOUS. ITEM 


<ADDRESS-MODIFIER | 
DESIGNATOR> ::= <ADDRESS-MODIFIER FUNCTION IDENTIFIER>D 
(<SIMPLE IDENTIFIERD) 


<ADDRESS-MODIFIER . 
FUNCTION IDENTIFIER> ::= NEXT. ITEM 
/ PREVIOUS. ITEM 


THE NEXT.ITEM FUNCTION CAUSES THE LENGTH FIELD OF THE DESCRIPTOR 
REPRESENTED BY THE <SIMPLE IDENTIFIER> TO BE ADDED TO THE 

ADDRESS FIELD OF THAT DESCRIPTOR. THIS MODIFIED DESCRIPTOR IS 

PUT BACK ONTO THE NAME STACK, AND ALSO MOVED TO THE TOP OF THE 

EVALUATION STACK. MOVING THE MODIFIED DESCRIPTOR TO THE 

EVALUATION STACK IS, IN EFFECT, A LOAD ADDRESS OF THE NEW ITEM 

DESCRIBED BY THE <SIMPLE IDENTIFIER>. HENCE, "NEXT.ITEM" MAY BE 
USED AS THE OBJECT OF A REPLACEMENT. FOR EXAMPLE, THE FOLLOWING 

STATEMENTS: | | 


DECLARE 01 CHAR.STRING CHARACTER(1000), 


02 NEXT.CHAR CHARACTER(1) ; 
NEXT. ITEM (NEXT.CHAR)«—'"'D" ; 


HAVE THE EFFECT OF STORING "D" INTO THE SECOND CHARACTER OF 
CHAR.STRING, WHICH IS: 
SUBSTR(CHAR.STRING,1,1) 


THE PREVIOUS.ITEM FUNCTION IS IDENTICAL TO NEXT.ITEM EXCEPT THAT 
A SUBTRACTION (OF LENGTH FROM ADDRESS) IS PERFORMED. 


ADDRESS GENERATORS 


<ADDRESS 
GENERATOR LIST> ::= 


<ADDRESS GENERATOR> 


<BUMPOR> ::= 
<DECREMENTOR> ::= 


<CONDITIONAL ADDRESS 
GENERATOR> ::= 


<CASE ADDRESS 
GENERATOR>D ::= 


<ADDRESS-GENERAT ING 
ASSIGNOR> ::= 


~ nN NO ONS 


<ADDRESS GENERATOR> 
<ADDRESS GENERATOR?) , 
<ADDRESS GENERATOR LIST> 


<ADDRESS VARIABLE > 


<BUMPOR > 


<DECREMENTOR> 

<CONDITIONAL ADDRESS GENERATOR> 
<CASE ADDRESS GENERATOR> 
<ADDRESS-GENERATING ASSIGNOR> 


SEE "BUMPOR" 


SEE "DECREMENTOR" 


IF <EXPRESSION> 
THEN <ADDRESS GENERATOR> 
ELSE <ADDRESS GENERATOR> 


CASE <EXPRESSION> 
OF (<ADDRESS GENERATOR LIST>) 


<ADDRESS VARIABLE> 

<REPLACE, DELETE LEFT PART> 
<ADDRESS GENERATOR> 

<ADDRESS VARIABLE > 

<REPLACE,. DELETE RIGHT PART> 
<EXPRESSION> 


THE <ADDRESS GENERATOR> INCLUDES ANY PRIMARY WHICH LEAVES AN 


ADDRESS ON THE TOP OF 
ELEMENTS OF THE EXPRESSION" 


THE EVALUATION STACK. SEE "PRIMARY 
FOR MORE EXPLICIT DETAIL. 
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VALUE VARIABLES 


<VALUE VARI ABLE> 


/ <TYPED PROCEDURE DESIGNATOR> 
(<ADDRESS VARIABLE >) 
/ <FILE DESIGNATOR> 


~~ 


<FILE DESIGNATOR>:: 


<FILE IDENTIFIERD 


<VALUE-GENERATING FUNCTION DESIGNATOR> 


/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<TYPED PROCEDURE | 
DESIGNATOR> ::= <TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART > 


<TYPED PROCEDURE 
IDENTIFIER> ::= <IDENTIF IER> 


<ACTUAL PARAMETER PART> ::= <EMPTY> 
/ (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMETER> 
/ <ACTUAL PARAMETER>, 
<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER? <EXPRESSION> 


/ <ARRAY DESIGNATOR> 


<ARRAY DESIGNATOR> <ARRAY IDENTIFIERD 


CARRAY IDENTIF IER> <IDENTIF IER> 


NOTICE FROM THE ABOVE SYNTAX THAT ANY <ADDRESS VARIABLE> 
ENCLOSED IN PARENS, SUCH AS (SUBBIT (A,I,J)), WILL BE TREATED 
AS A VALUE VARIABLE. 


THE VALUE GENERATED BY A <FILE DESIGNATOR> IS THE FPB NUMBER OF 
THE SPECIFIED FILE. A WARNING MESSAGE WILL BE ISSUED. 


THE TYPED PROCEDURE (A PROCEDURE WHICH RETURNS A_ VALUE) IS 
INVOKED WITHIN AN EXPRESSION ACCORDING TO THE ABOVE SYNTAX. THE 
PROCEDURE IDENTIFIER, FOLLOWED BY ITS PARAMETERS (IF ANY), 
ENCLOSED WITHIN PARENS, IS TREATED AS AN OPERAND IN THE 
EXPRESSION. FOR DETAILS ON PASSING PARAMETERS, SEE "ADDRESS AND 
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VALUE PARAMETERS". THE PROCEDURE IS EVALUATED AND THE RETURNED 
VALUE REPLACES THE <TYPED PROCEDURE DESIGNATOR>. FOR EXAMPLE: 


DECLARE Z FIXED; 


PROCEDURE X(A,B) FIXED; 
FORMAL (A,B) FIXED; 


END X; 


Z := X(BUMP M,R)+1; 


VALUE GENERATING FUNCTIONS 


<VALUE-GENERAT ING 
FUNCTION DESIGNATOR> 


~~~ NN me eR RR RRR RRR RRR RRR RRS 


<SWAP DESIGNATOR> 

<SUB-STRING VALUE DESIGNATOR> 
<DISPATCH DESIGNATOR> 

<LOCATION: DESIGNATOR> 

<CONVERT DESIGNATOR> 

<LENGTH DESIGNATOR> 

<MEMORY SIZE DESIGNATOR> 
<DESCRIPTOR-VALUE-GENERATOR DESIGNATOR> 
<INTERROGATE INTERRUPT STATUS DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<BINARY CONVERSION DESIGNATOR> 

<TIME FUNCTION DESIGNATOR> 

<DATE FUNCTION DESIGNATOR> | 
<NAME-OF-DAY FUNCTION DESIGNATOR> ® 
<BASE REGISTER DESIGNATOR> 

<LIMIT REGISTER DESIGNATOR>. | 
<CONTROL STACK TOP DESIGNATOR> 

<DATA. ADDRESS DESIGNATOR> 
<SEARCH.LINKED.LIST DESIGNATOR> 
<SORT.STEP.DOWN DESIGNATOR> 
<SORT.UNBLOCK DESIGNATOR> 

<SORT.SEARCH DESIGNATORD> 
<PARITY.ADDRESS DESIGNATOR> 

<DYNAMIC MEMORY BASE DESIGNATOR> 

<HASH CODE DESIGNATOR> 

<NEXT TOKEN DESIGNATOR> 

<DELIMITED TOKEN DESIGNATOR> 
<EVALUATION STACK TOP DESIGNATOR> 
<CONTROL STACK BITS DESIGNATOR> 

<NAME STACK TOP DESIGNATOR> 
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<DISPLAY BASE DESIGNATOR> 
<CONSOLE SWITCHES DESIGNATOR> 
<SEARCH SERIAL LIST DISIGNATOR> 
<SPO INPUT PRESENT DESIGNATOR> 
<SEARCH.SDL.STACKS DESIGNATOR> 
<EXECUTE DESIGNATOR> 


NNN NNN 


SWAP 


<SWAP DESIGNATOR> ::= SWAP (<ADDRESS GENERATOR) ,<EXPRESSION> ) 


THE LENGTH OF THE VALUE DESCRIBED BY THE <ADDRESS GENERATOR> IS 
USED AS THE LENGTH, L, OF THE DATA TO BE "SWAPPED". HOWEVER, IF 
THE LENGTH OF THE VALUE IS GREATER THAN 24 BITS, L WILL BE 24 
BITS, AND ONLY THE LOW-ORDER 24 BITS OF THE <ADDRESS GENERATOR> 
WILL BE MODIFIED. | 


THE RIGHTMOST L BITS OF THE VALUE DESCRIBED BY THE <ADDRESS 
GENERATOR> ARE ISOLATED, AND BECOME THE DESTINATION FIELD. 


THE RIGHTMOST L BITS OF THE VALUE GENERATED BY THE <EXPRESSION> 
ARE ISOLATED. LEADING ZEROES ARE SUPPLIED IF THE LENGTH OF THE 
VALUE IS LESS THAN L BITS LONG. THIS FIELD IS KNOWN AS THE 
SOURCE FIELD. 


THE SOURCE FIELD IS STORED INTO THE DESTINATION FIELD, THE 
ORIGINAL VALUE OF WHICH IS THE VALUE RETURNED. THE RETURNED 
VALUE IS OF TYPE BIT AND OF LENGTH L. 


EXAMPLE : 


A+-0; 
IF SWAP (A,1) THEN DO ... END; 
ELSE DO ... END; 


IN THE ABOVE EXAMPLE, THE "ELSE" PART OF THE STATEMENT IS 
EVALUATED, SINCE A WAS ORIGINALLY SET TO O (I.E., FALSE). AT 
THE END OF THE EVALUATION, 1 HAS BEEN STORED INTO A, AND O 
RETURNED TO THE TOP OF THE EVALUATION STACK. 
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SUBBIT AND SUBSTR 


<SUB-STRING VALUE 
DESIGNATOR> ::= <SUB-STRING FUNCTION IDENTIFIERD 
(<STRING VALUED ,<OFFSET PART >) 
/ <SUB-STRING FUNCTION IDENTIFIERD 
(<STRING VALUE>,<OFFSET PART>, 
<LENGTH PART>) © 


<SUB-STRING FUNCTION 


IDENTIFIER> ::= SUBBIT / SUBSTR 
<STRING VALUE> ::= <EXPRESSION> 
<OFFSET PART> ::+ “EXPRESSION 
“LENGTH PART) ::= <EXPRESSION> 


THE <SUB-STRING VALUE DESIGNATOR> AND THE <SUB-STRING ADDRESS 
DESIGNATOR> ARE IDENTICAL EXCEPT THAT THE FORMER RETURNS A 
VALUE IF ITS <STRING VALUE> IS NOT AN <ADDRESS GENERATOR>. 
PLEASE SEE "SUBBIT AND SUBSTR" UNDER "ADDRESS VARIABLES" FOR 
THE SPECIFICS OF THE FUNCTION. 


THE FOLLOWING EXAMPLES ILLUSTRATE SOME OF THE USES OF THE 
<SUB-STRING VALUE DESIGNATOR>: 


X<+SUBSTR(A CAT B,5,10); 
MAKE ..DESCRIPTOR(@48@ CAT SUBBIT(A OR B, 0, 16) CAT X) ...; 
IF SUBSTR(@06@ CAT "ABC", 0) = Y THEN ...:; | 


DISPATCH 
<DISPATCH DESIGNATOR> ::= DISPATCH(<PORT ,CHANNEL ,PRIORITY>, 
<1/0 DESPRIPTOR ADDRESS>) 
<PORT,CHANNEL ,PRIORITY> ::= <EXPRESSIOND 


<1/0 DESCRIPTOR | 
ADDRESS> ::= <EXPRESS ION>D 


THE RIGHTMOST SEVEN BITS OF THE VALUE OF <PORT. CHANNEL. 
PRIORITY) CONTAIN THE FOLLOWING INFORMATION FROM LEFT TO RIGHT: 


S-B17S = BITS 1 BIT 
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THE RIGHTMOST 24 BITS OF THE VALUE OF THE <I/0 DESCRIPTOR 
ADDRESS> IS THE ABSOLUTE ADDRESS OF THE I/O DESCRIPTOR. 


USING THESE TWO VALUES, AN 1/0 OPERATION IS INITIATED. A_ BIT 
VALUE WITH THE FOLLOWING MEANINGS IS RETURNED: 


DISPATCH REGISTER LOCK BIT SET 
SUCCESSFUL DISPATCH 


—_— 
vou ow 


ras SUCCESSFUL DISPATCH, BUT MISSING DEVICE 
LOCATION 

<LOCATION DESIGNATOR> ::= LOCATION (<PROCEDURE IDENTIFIER>) 
/ LOCATION (<SIMPLE IDENTIFIER)) 
/ LOCATION (<ARRAY [DENTIFIER>) 

<PROCEDURE IDENTIFIER> ::= CIDENTIFIER> 

<SIMPLE IDENTIFIER>D: := <IDENTIFIER>D 

<ARRAY IDENTIFIERD:: <IDENTIFIERD 


FOR PROCEDURES, THE <LOCATION DESIGNATOR> RETURNS A 33-BIT VALUE 
(TYPED BIT) CONTAINING, FROM LEFT TO RIGHT: 


ADDRESS TYPE, CONTAINING @(3)6®@ 3 BITS 


SEGMENT NUMBER 6 BITS 
PAGE NUMBER 4 BITS 
DISPLACEMENT e0 BITS 


THIS 33-BIT VALUE IS THE ADDRESS OF THE PROCEDURE IN QUESTION. 


A FORWARD DECLARATION IS REQUIRED ONLY DURING RECOMPILATION OR 
CREATE-MASTER FOR ANY PROCEDURE ON WHICH A_ LOCATION IS 
PERFORMED. AN ERROR IS GIVEN IF THIS IS NOT DONE 


FOR SIMPLE AND ARRAY IDENTIFIERS, THE <LOCATION DESIGNATOR> 
RETURNS A 16-BIT VALUE (TYPED BIT) CONTAINING, FROM LEFT TO 
RIGHT: 


ADDRESS TYPE CONTAINING @(2)0@ e BITS 
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LEXIC LEVEL 4 BITS 
OCCURRENCE NUMBER 10 BITS 
CONVERT 
<CONVERSION DESIGNATOR> ::= CONVERT (<EXPRESSION>D, 


<CONVERSION PART>) 
/ CONV (<EXPRESSIOND, 
<CONVERSION PART >) 


<CONVERSION PART> <CONVERSION TYPE> 
/ <CONVERSION TYPE>, 


<BIT GROUP SIZE> 


<CONVERSION TYPE> BIT / CHARACTER / FIXED 


<BIT GROUP SIZE> ::= Ue dae aa ee 


THE <EXPRESSION>, WHICH MAY BE OF ANY DATA TYPE, WILL BE 
CONVERTED AS SPECIFIED BY THE <CONVERSION TYPE>. THE CONVERTED 
<EXPRESSION> WILL BE RETURNED AS A VALUE. 


THE <BIT GROUP SIZE> IS USED ONLY WITH BIT-TO-CHARACTER OR 
CHARACTER-TO-BIT CONVERSIONS. IT SPECIFIES THE NUMBER OF BITS 
(OF THE BIT STRING) WHICH CORRESPOND TO A CHARACTER IN_ THE 
CHARACTER STRING. 


NOTE: BIT-TO-CHARACTER CONVERSION DOES NOT YIELD 
DECIMAL DIGITS. IF A BIT STRING [S TO BE 
CONVERTED TO DECIMAL DIGITS, IT SHOULD BE 
STORED IN A FIXED VARIABLE, AND THE FIXED 
VARIABLE CONVERTED. 
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THE FOLLOWING TABLE SHOWS THE POSSIBLE CONVERSION COMBINATIONS: 


OUTPUT: BIT CHARACTER | FIXED 


CONVERT TO CHAR. RETURN 24 BITS 
UNDER CONTROL OF | PROVIDING LEADING 
<BIT GROUP SIZE>;| ZEROES OR LEFT 
IF OMITTED USE 4 TRUNCATION, AS 
NECESSARY 


NO CHANGE 


CONVERT TO BITS 
UNDER CONTROL OF 
<BIT GROUP SIZED; 
IF OMITTED USE 4 


CHARACTER NO CHANGE SEE NOTE 


DECIMAL CONVER- 
SION W/ LEADING 
ZEROS & SIGN NOT 
SUPPRESSED. (7 
DIGITS + SIGN). 


CHANGE TYPE 
TO BIT 


NO CHANGE 


NOTE: THE CHARACTER STRING MAY HAVE LEADING BLANKS, 
SIGN (OR NONE), MORE BLANKS, AND DECIMAL 
DIGITS. A PLUS SIGN IS IGNORED. THE DECIMAL 
DIGITS (ONLY THE LOW-ORDER 7) ARE CONVERTED TO 
A BINARY NUMBER THAT IS RIGHT JUSTIFIED IN A 
e4-BIT FIELD. IF THE SIGN WAS MINUS, THEN THE 
2-5 COMPLEMENT OF THE e24-BIT FIELD IS 


RETURNED. 

EXAMPLES: 
CONVERT (" - 72581",FIXED) RETURNS -72581 
CONVERT (@(3)752@,CHARACTER,4) "IEA" 
CONVERT (@(1)11011@,F1XED) 27 
CONVERT ("132",BIT,2) @(2) 1320 
CONVERT ("132" ,BIT,4) ©(4) 1320 


CONVERT ("2 ",BIT) @(4)200 
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LENGTH 


<LENGTH DESIGNATOR> ::= LENGTH (<EXPRESSIOND) 


THE <LENGTH DESIGNATOR> RETURNS A @4-BIT, TYPE BIT FIELD 
CONTAINING THE NUMBER OF UNITS IN THE <EXPRESSION>. IF THE 
<EXPRESSION> IS TYPE CHARACTER, THEN EACH CHARACTER IS A UNIT. 
OTHERWISE, EACH BIT IS A UNIT. 


MEMORY SIZE 


<MEMORY SIZE 
DESIGNATOR> ::= S.MEM.SIZE / M.MEM.SIZE 


THE REQUESTED MEMORY SIZE IS RETURNED AS A 24-BIT DATA ITEM OF 
TYPE BIT. 


VALUE DESCRIPTOR 


<DESCRIPTOR-VALUE GENERATOR | 
DESIGNATOR> ::= VALUE .DESCRIPTOR (<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR>D ::= SEE “ADDRESS GENERATORS" 


THE <ADDRESS GENERATOR> IS REPRESENTED BY A DESCRIPTOR AT THE 
TOP OF THE EVALUATION STACK. THIS DESCRIPTOR IS MOVED TO THE 
VALUE STACK. IN ITS PLACE ON THE EVALUATION STACK IS LEFT A 
DESCRIPTOR DESCRIBING THE ONE JUST MOVED TO THE VALUE STACK. 


THE NAME-VALUE BIT IS SET IN THE DESCRIPTOR LEFT IN THE 
EVALUATION STACK. 


INTERROGATE INTERRUPT STATUS 


SNE ET ARS REE ED ST EEE CE EES GEFEN SU GRR ee! CENTS CK ED NOR em CHD OEP caret SED «RON Ime nye GE ORD ome 


<INTERROGATE INTERRUPT 
STATUS BESIGNATOR> ::= ~INTERROGATE. INTERRUPT .STATUS 


A e4-BIT DATA ITEM OF TYPE BIT IS RETURNED. THE VALUE REPRESENTS 
THE INTERRUPT BITS OF THE M-MACHINE. THE APPLICABLE M-MACHINE 
INTERRUPT BITS ARE RESET. NOTE THAT THE INCN BITS WILL NOT BE 
RESET. 


DECIMAL CONVERSION 


POT AOS eR mE AERO Sire AULT HOOD ens AUORDD CORN AR OEE ER KRY UD ERY ort 


<DECIMAL CONVERSION 
DESIGNATOR> ::= DECIMAL (<EXPRESSION>, 
<DECIMAL STRING SIZE>) 


<DECIMAL STRING SIZE> ::= <E XPRESS ION> 


THE VALUE OF THE FIRST <EXPRESSION> FOLLOWING THE RESERVED WORD 
“DEC IMAL " IS CONVERTED TO A STRING OF DECIMAL CHARACTERS. IF 
THE VALUE OF THE <EXPRESSION> GENERATES MORE THAN e4 BITS, THEN 
ONLY THE LOW-ORDER c4% 6 TS ARE USED. 


THE NUMBER OF CHARACTERS RETURNED IS GIVEN BY THE VALUE OF THE 
<DECIMAL STRING SIZE>. A MAXIMUM OF 8 DECIMAL CHARACTERS WILL 
BE RETURNED, EVEN IF THE VALUE OF THE <DECIMAL STRING SIZE> I5 
GREATER. IF THE <DECIMAL STRING SIZE> IS LESS THAN THE NUMBER 
OF DECIMAL CHARACTERS, THEN CHARACTERS ARE TRUNCATED FROM THE 
a ee ae 


BINARY CONVERSION 


SERDAR CE A a SEO ORR Gum? ESRD RO acme TD ame amr core oemmeD 


<BINARY CONVERSION 
DESIGNATOR> ::= BINARY (<EXPRESSION>) 


THE <BINARY CONVERSION DESIGNATOR> RETURNS A FIXED VALUE WHICH 
IS THE BINARY REPRESENTATION OF THE <EXPRESSION>. THE 
<EXPRESSION> IS ASSUMED TO BE A’ CHARACTER STRING CONTAINING 
DECIMAL DIGITS. ONLY THE LOW-ORDER 8 CHARACTERS WILL BE 
CONVERTED. ZONE BITS ARE IGNORED. | 
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IF THE CONVERSION RESULTS IN A BINARY VALUE GREATER THAN 24 BITS 
(1.E., IF THE DECIMAL NUMBER IS GREATER THAN 16,777,215), THEN 
THE LEFT-MOST BITS WILL BE TRUNCATED. 


IF THE DECIMAL NUMBER IS GREATER THAN 8,388,607 (I. E., (2 EXP 
23)-1), THEN THE RETURNED VALUE WILL APPEAR TO BE NEGATIVE 
(I.E., THE HIGH-ORDER BIT IS 1). 


TIME FUNCTION 


<TIME FUNCTION. 


DESIGNATOR> ::= TIME 

/ TIME (<TIME FORMAT>,<REPRESENTATION>) 
<TIME FORMAT> ::= COUNTER / MILITARY / CIVILIAN 
<REPRESENTATION> ::= BIT / DIGIT / CHARACTER 


THE <TIME FUNCTION DESIGNATOR> RETURNS A BIT OR CHARACTER STRING 
WHICH IS THE TIME OF THE FUNCTION-S EXECUTION. THE <TIME 
FORMAT> MAY HAVE THREE BASIC FORMATS: 


COUNTER RETURNS THE TIME ai DAY IN TENTHS OF 


SECONDS. 

MILITARY RETURNS THE TIME OF DAY IN THE FOLLOWING 
FORM -- HHMMSST (WHERE T=TENTHS OF 
SECONDS). 


CIVILIAN RETURNS HHMMSSTAP(WHERE AP=AM OR PM). 


THE TIME OF DAY MAY BE REPRESENTED IN EITHER BITS, DIGITS, OR 
CHARACTERS IN THE FOLLOWING FORMATS: 


| BIT DIGIT CHARACTER 
COUNTER 20 BITS 24 BITS 48 BITS 
MILITARY 5+64+6+4=2 1 8+8+8+4=28 16+16+16+8=56 
CIVILIAN U+64+6+4+16=36 8+8+8+4+16=44  16+16+16+8+16=72 
NOTE: "TIME" AND "TIME (CIVILIAN,CHARACTER)" ARE 


EQUIVALENT. 
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DATE FUNCTION 


<DATE FUNCTION 
DESIGNATOR> ::= DATE 

/ DATE (<DATE FORMAT>,<REPRESENTAT ION?) 
<DATE FORMAT> ::= JULIAN / MONTH / DAY / YEAR 
<REPRESENTATION> ::= BIT / DIGIT / CHARACTER 


THE <DATE FUNCTION DESIGNATOR> RETURNS A BIT OR CHARACTER STRING 
WHICH IS THE DATE OF THE EXECUTION OF THE FUNCTION. 


"DATE" AND "DATE (MONTH,CHARACTER)" ARE EQUIVALENT. 


THE FORMATS (IN BITS) OF THE RETURNED STRINGS ARE: 


BIT DIGIT CHARACTER 
JULIAN (YYDDD) 7+9=16 8+12=20 16+24=40 
MONTH (MMDDYY) 4+5+7=16 8+8+8=c4 16+16+16=48 
DAY (DDMMYY) 5+4+7=16 8+8+8=c4 16+16+16=48 
YEAR (YYMMDD) 7+4+5=16 8+8+8=c4 16+16+16=48 


EXAMPLE: DECLARE D CHARACTER(S) ; 
DDATE (JULIAN,CHARACTER) ; 


NAME OF DAY 


<NAME OF DAY FUNCTION 
DESIGNATOR> ::= NAME .OF .DAY 


A CHARACTER STRING, WHICH IS THE NAME OF THE DAY OF THE WEEK, IS 
RETURNED AS A Q-CHARACTER STRING. THE NAME IS LEFT JUSTIFIED. 


EXAMPLE: DECLARE DAY CHARACTER (Q) ; 
DAYNAME .OF .DAY | 
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‘BASE REGISTER 


- <BASE REGISTER 
DESIGNATOR) ::= BASE .REGISTER 


A c4¥-BIT VALUE OF TYPE BIT IS RETURNED. THE VALUE IS THE 
ABSOLUTE ADDRESS OF THE BASE OF THE PROGRAM. IT SHOULD BE NOTED 
THAT TWO SEPARATE EXECUTIONS OF "BASE.REGISTER" MAY NOT YIELD 
THE SAME RESULTS, SINCE THE MCP MAY HAVE MOVED THE PROGRAM IN 
MEMORY . | | | 


LIMIT REGISTER 


<LIMIT REGISTER 
DESTGNATOR> ::=. _  LIMIT.REGISTER 


THE <LIMIT REGISTER DESIGNATOR> RETURNS A 24-BIT VALUE (TYPE 
BIT) WHICH IS THE BASE RELATIVE ADDRESS OF THE PROGRAM-S RUN 
STRUCTURE. FOR FURTHER EXPLANATION, PLEASE REFER TO THE "B1500 
MCP MANUAL", 


CONTROL STACK TOP 


<CONTROL STACK TOP. | 
DESIGNATOR> ::= | CONTROL .STACK.TOP — 


A @4-BIT VALUE OF TYPE BIT IS RETURNED. THE VALUE IS THE BASE — 
RELATIVE ADDRESS OF THE NEXT ENTRY TO BE PLACED ON THE CONTROL 
STACK. 


DATA ADDRESS 


<DATA ADDRESS - | 
DESIGNATOR> ::= | _ DATA.ADDRESS (<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR> ::= SEE _ "ADDRESS GENERATORS" 


THE <DATA ADDRESS DESIGNATOR> RETURNS A 24-BIT VALUE (TYPE BIT) 
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WHICH IS THE BASE RELATIVE ADDRESS GENERATED BY THE <ADDRESS 


GENERATOR>. 


SEARCH.LINKED.LIST 


<SEARCH.LINKED.LIST 


DESIGNATOR> ::= 


SEARCH. LINKED. LIST 
(<RECORD ADDRESS>, < ARGUMENT INDE X>, 
<COMPARE VARIABLE>,<RELATIOND, 


<LINK INDEX)) 


<RECORD ADDRESS> ::= <EXPRESS1ON> 
<ARGUMENT INDEX> ::= <EXPRESSION> 
<COMPARE VARIABLE> ::= <EXPRESSION> | 
<RELATION> ::= CPE ALET ST >I 
LSS / LEQ / EQL / NEQ / 
 GEQ / GTR 
<LINK INDEX> ::= <EXPRESSION> 


EACH OF THE FOUR EXPRESSIONS ABOVE GENERATES A 24-BIT VALUE 


WHICH IS LOADED TO THE TOP OF THE EVALUATION STACK. 


MEANINGS OF EACH EXPRESSION IS AS FOLLOWS: 


1 


THE <RECORD ADDRESS> IS THE BASE RELATIVE 
ADDRESS OF THE FIRST STRUCTURE TO BE EXAMINED. 


THE <ARGUMENT INDEX> IS THE RELATIVE OFFSET 


AND SIZE IN THE STRUCTURE, OF THE 24% (OR LESS) 
BIT FIELD BEING COMPARED WITH THE <COMPARE 
VARIABLE>. | 


THE <COMPARE VARIABLE> IS THE CONTROL AGAINST 
WHICH THE SPECIFIED FIELD IN THE STRUCTURE IS 
COMPARED. 


THE <RELATION> SPECIFIES THE DESIRED RELATION 
IN THE COMPARISON OF THE TWO VALUES. 


THE <LINK INDEX> IS THE RELATIVE OFFSET AND 
SIZE IN THE STRUCTURE, OF THE 24 (OR LESS) BIT 
FIELD CONTAINING THE ADDRESS OF THE NEXT 
STRUCTURE TO BE EXAMINED (IF COMPARISON WITH 
THE CURRENT STRUCTURE FAILS). 
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THE LAST STRUCTURE IN THE LINKED LIST CONTAINS ALL 1! BITS IN THE 
FIELD DESCRIBED BY THE <LINK INDEX>. | 


THE LINKED LIST IS SEARCHED UNTIL THE DESIRED COMPARISON 
SUCCEEDS OR UNTIL THE COMPARISON FAILS WITH THE LAST STRUCTURE. 


IF THE SEARCH SUCCEEDS, THE BASE-RELATIVE ADDRESS OF THE CURRENT 
STRUCTURE IS LEFT ON THE EVALUATION STACK AS A 24-BIT VALUE. IF 
THE SEARCH FAILS, @FFFFFF@ IS LEFT ON THE STACK. 


SORT . STEP. DOWN 


<SORT .STEP . DOWN 
DESIGNATOR> ::= | SORT .STEP.DOWN 
| (<RECORD 1>,<RECORD @>, 
<KEY TABLE ADDRESS>) 


<RECORD 1> = <EXPRESSION> 
<RECORD 2> = <EXPRESSION> 


<KEY TABLE ADDRESS> ::= _ <EXPRESSION> 


FOR USE BY SORT ONLY. 


THE <SORT.STEP.DOWN DESIGNATOR> PROVIDES THE INFORMATION 
NECESSARY TO COMPARE TWO RECORDS. <RECORDI1> AND <RECORD e> ARE, 
RESPECTIVELY, THE FIRST AND SECOND RECORDS WHICH ARE TO BE 
COMPARED. THE <KEY TABLE ADDRESS> SPECIFIES THE SORT KEY USED 
IN THE COMPARISON. 


SORT . UNBLOCK 


<SORT . UNBLOCK | 
DESIGNATOR> ::= SORT.UNBLOCK (<MINI FIB ADDRESS>, 
<LENGTH> , <SOURCE > , <DESTINATIOND) 


<MINI FIB ADDRESS>) ::= | <ADDRESS GENERATOR> 
<LENGTH> = <EXPRESSION> 
= <EXPRESSION> 


<SOURCE>D :: 
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<DESTINATION> ::= <EXPRESSION> 


FOR USE BY SORT ONLY. 


THE <SORT.UNBLOCK DESIGNATOR> MOVES A RECORD TO OR FROM A 
BUFFER, UPDATING THE BUFFER POINTER AND BLOCK COUNT. IT 
NORMALLY RETURNS A ZERO. WHEN THE BLOCK COUNT GOES TO ZERO, IT 
RESTORES THE ORIGINAL BUFFER POINTER AND BLOCK COUNT, AND 
RETURNS A 1, SIGNALLING THE NEED FOR AN I/O. | 


A BIT ON THE MINI-FIB-SIGNALS SORT.UNBLOCK TO CREATE SORT TAGS. 
FOR THIS FUNCTION, IT USES THE SORT KEY TABLE AND SELECTS ONLY 
THE KEY INFORMATION TO MOVE FROM THE BUFFER: A VALUE IN THE 
MINI-FIB REPRESENTS THE LENGTH OF THE RECEIVING FIELD. 


SORT . SEARCH 


<SORT .SEARCH 
DESIGNATOR> ::= SORT . SEARCH 
(<TABLE ADDRESS> ,<LIMIT>) 


<TABLE ADDRESS> <ADDRESS GENERATOR> 


<LIMITD ::= <EXPRESS ION> 


FOR USE BY SORT ONLY. 


THE <SORT SEARCH DESIGNATOR> PROVIDES THE INFORMATION TO 
EVALUATE A RECORD FOR SORTING PURPOSES. THE <TABLE ADDRESS> 
CONTAINS THE ADDRESS, IN AN ARRAY OF RECORDS, OF THE FIRST 
RECORD TO BE EXAMINED AND THE CONDITION UNDER WHICH RECORDS 
WILL BE SELECTED. 


THE <LIMIT> SPECIFIES THE LAST RECORD TO BE EXAMINED. 
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PARITY. ADDRESS 


<PARITY.ADDRESS a | 
DESIGNATOR> ::= | PARITY .ADDRESS 


FOR MCP USE ONLY. 


THE <PARITY. ADDRESS DESIGNATOR> RETURNS A 24-BIT VALUE WHICH IS 
THE ADDRESS OF THE FIRST PARITY ERROR ENCOUNTERED IN S-MEMORY. 
IF NO PARITY ERROR IS FOUND, OFFFFFFe IS RETURNED. 


DYNAMIC MEMORY BASE 


<DYNAMIC MEMORY 
BASE DESIGNATOR> ::=  DYNAMIC.MEMORY . BASE 


THE <DYNAMIC MEMORY BASE DESIGNATOR> RETURNS A @4-BIT VALUE 
WHICH IS THE BASE RELATIVE ADDRESS OF THE PROGRAM-S DYNAMIC 
MEMORY . REFER TO THE SDL S-LANGUAGE DOCUMENTATION FOR 
DISCUSSION OF THE USE OF DYNAMIC MEMORY. | 


HASH CODE 


<HASH CODE DESIGNATOR>::= = HASH.CODE (<TOKEN>) 


<TOKEND::= | <EXPRESSION> 


THE HASH.CODE WILL LEAVE ON THE EVALUATION STACK A DESCRIPTOR OF 
TYPE BIT AND LENGTH 24. THE VALUE WILL BE A HASH CODE BASED ON 
THE FIRST 15 (OR LESS) CHARACTERS OF <TOKEN> AND ON THE LENGTH 
OF <TOKEN>. TO BE EFFECTIVE, THE VALUE GENERATED BY HASH.CODE 
MUST BE USED MODULO A PRIME NUMBER (WHICH IS USUALLY THE HASH 
TABLE SIZE). 


1LS=17 


NEXT TOKEN 

<NEXT TOKEN DESIGNATOR): := NEXT.TOKEN (<FIRST CHARACTER>D, 
<SEPARATOR>, <NUMERIC-TO-ALPHA INDICATOR>, 
<RESULT>) 

<FIRST CHARACTER>: := <IDENTIFIER>D 

<SEPARATOR>::= © <CHARACTER STRING> 

<NUMERIC-TO-ALPHA 

INDICATOR): := SET 

/ RESET 


THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. THIS WILL USUALLY BE THE FIRST 

CHARACTER OF THE TOKEN. THE <SEPARATOR> IS THE TOKEN SEPARATOR: 

"." FOR SDL, "-" FOR COBOL, ETC. IT MUST BE A SINGLE CHARACTER; 

IF NONE IS NEEDED, USE "A". <NUMERIC- TO-ALPHA INDICATOR> IS 

SET IF SYMBOLS SUCH AS 235AB ARE ALLOWED. IT IS RESET 

OTHERWISE. 


NEXT.TOKEN WILL LEAVE ON THE TOP OF THE EVALUATION STACK THE 
DESCRIPTOR OF THE NEXT TOKEN. THIS TOKEN WILL BE AN IDENTIFIER, 
A NUMBER, OR A SPECIAL CHARACTER. THE DESCRIPTOR OF <RESULT> 
WILL ALSO BE REPLACED BY THIS DESCRIPTOR. THE ADDRESS FIELD OF 
<FIRST CHARACTER> WILL BE CHANGED TO POINT TO THE CHARACTER 
FOLLOWING THIS TOKEN. NEXT.TOKEN ASSUMES THAT <FIRST CHARACTER> 
DESCRIBES A NON-BLANK CHARACTER. 


DELIMITED TOKEN 


<DELIMITED TOKEN 

DESIGNATOR>: := DELIMITED. TOKEN (<FIRST CHARACTER>, 
<DELIMITERS>, <RESULT>) 

<FIRST CHARACTER>::= <IDENTIFIERD> 


<DELIMITERS>): := <CHARACTER STRING> 
: ./ <BIT STRING> 


<RESULT>::= | <IDENTIFIER> 
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THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. <DELIMITERS> WILL GENERATE 16 

BITS OF INFORMATION, EACH OF THE 8-BIT BYTES BEING USED AS A 

DELIMITER. FOR SDL, <DELIMITERS> WILL BE "“""X%"; FOR COBOL, 

@7FO03e@ (QUOTE FOLLOWED BY ETX). 


DELIMITED.TOKEN WILL LEAVE ON THE TOP OF THE EVALUATION STACK 
THE DESCRIPTOR OF THE STRING OF CHARACTERS FROM (AND INCLUDING) 
<FIRST CHARACTER> UP TO (BUT NOT INCLUDING) WHICHEVER DELIMITER 
WAS FOUND. THE DESCRIPTOR OF <RESULT> WILL BE REPLACED BY THIS 
DESCRIPTOR. THE ADDRESS FIELD OF <FIRST CHARACTER> WILL BE 
CHANGED TO POINT TO THE DELIMITER WHICH STOPPED THE SCAN. 


EVALUATION STACK TOP 


<EVALUATION STACK 
TOP DESIGNATOR): := EVALUATION.STACK. TOP 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e4-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE TOP OF THE EVALUATION STACK 
(BEFORE EXECUTION OF THIS FUNCTION). 


CONTROL STACK BITS 


<CONTROL STACK — 
BITS DESIGNATOR): := CONTROL .STACK.BITS 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
24-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE NUMBER OF 
BITS LEFT IN THE CONTROL STACK UNTIL OVERFLOW. 


NAME STACK TOP 


<NAME STACK 
TOP DESIGNATOR>: := NAME .STACK. TOP 
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THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e4-BIT, SELF-RELATIVE VALUE OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE TOP OF THE NAME STACK. 


DISPLAY BASE 


<DISPLAY BASE 
DESIGNATOR>: := DISPLAY. BASE 


THIS FUNCTION LEAVES ON THE TOP OF THE EVALUATION STACK A 
e+-BIt, SELF-RELATIVE VALUE’ OF TYPE BIT WHICH IS THE 
BASE-RELATIVE ADDRESS OF THE BASE OF THE DISPLAY. 


CONSOLE SWITCHES 


<CONSOLE SWITCHES 
DESIGNATOR): := CONSOLE .SWITCHES 


NOTE: THIS FUNCTION HAS MEANING ONLY ON THE 8B172e6 
(OR LARGER). IT LEAVES ON THE TOP OF THE 
EVALUATION STACK A e@4-BIT, SELF-RELATIVE VALUE 
OF THE e+ CONSOLE SWITCHES. 


SEARCH SERIAL LIST 


<SEARCH SERIAL | 

LIST DESIGNATOR>::= SEARCH.SERIAL.LIST (<SSL COMPARE VALUED, 
<SSL COMPARE TYPE>, <SSL COMPARE FIELD>, 
<SSL FIRST ITEM>, <SSL TABLE LENGTH>, 
<SSL RESULT VARIABLE>) 


<SSL COMPARE VALUE>:: <EXPRESSION> 


<SSL COMPARE TYPED:: «/¢$/=/#/2/)> 


<SSL COMPARE FIELD>::= (EXPRESS ON> 
<SSL FIRST ITEM>::=  CEXPRESSION> 
<SSL_ TABLE LENGTH): := “EXPRESS I ON> 


<SSL RESULT VARIABLE: := <ADDRESS GENERATOR> 


© 1973, 1974 Burroughs - DO NOT REPRODUCE 


13-20 


SEARCH.SERIAL.LIST SEARCHES A SERIAL LIST OF ITEMS BEGINNING 
WITH THE ITEM DESCRIBED BY <SSL FIRST ITEM>. <SSL COMPARE 
VALUE> IS COMPARED (AS SPECIFIED BY <SSL COMPARE TYPE>) AGAINST 
THE FIELD OF THE ITEM DESCRIBED BY <SSL COMPARE FIELD> (<SSL 
COMPARE FIELD> IS A TEMPLATE) UNTIL A MATCH HAS BEEN FOUND, OR 
UNTIL <SSL TABLE LENGTH> NUMBER OF BITS HAS BEEN SEARCHED. 


IF THE SEARCH SUCCEEDS, THE BASE RELATIVE ADDRESS OF THE ITEM 
CONTAINING THE "SUCCESSFUL" <SSL COMPARE FIELD> IS STORED IN 
<SSL RESULT VARIABLE> AND A @(1)1@ IS RETURNED. 


IF THE SEARCH FAILS, THEN THE END ADDRESS OF THE TABLE IF STORED 
IN <SSL RESULT VARIABLE> AND A @(1)0@ IS RETURNED. 


SPO INPUT PRESENT 


<SPO INPUT 
PRESENT DESIGNATOR>: := SPO. INPUT .PRESENT 


A "SPECIAL", SPO.INPUT.PRESENT, HAS BEEN ADDED TO ALLOW THE 
PRESENCE OF SPO INPUT TO BE TESTED BEFORE HAVING TO PERFORM AN 
ACCEPT TO THE MCP. ~ 


SEARCH.SDL.STACKS 


n> eee ase am am aw GD am am aw aD wT a eT OD ae oD 


<SEARCH.SDL.STACKS | 

DESIGNATOR>: := SEARCH.SDL.STACKS 
(<STACK BASE>, <STACK TOP>, 
<COMPARE BASE>, <COMPARE TOP>) 


<STACK BASE>: := <EXPRESSION> 
<STACK TOP>: := , <EXPRESSION> 
<COMPARE BASE >::= <EXPRESSION> 
<COMPARE TOP>: := <EXPRESSION> 


THE FOUR PARAMETERS ARE EXPECTED TO GENERATE VALUES WHICH ARE 
BASE-RELATIVE ADDRESSES OF THE BASE AND TOP OF A STACK OF SDL 
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DESCRIPTORS AND OF AN ADDRESS RANGE, RESPECTIVELY. THE STACK 
WILL BE SEARCHED FOR A NON-ARRAY, NON-SELF-RELATIVE SDL 
DESCRIPTOR WHOSE ADDRESS IS WITHIN THE GIVEN RANGE. IF THE 
SEARCH IS SUCCESSFUL @(1)1@ WILL BE RETURNED; OIERWTSE @(1)00 
WILL BE RETURNED. 


EXECUTE 
<EXECUTE DESIGNATOR)D: := EXECUTE (EXPRESSION LIST) 
<EXPRESSION LIST): := <EXPRESSION> 


/ <EXPRESSION LIST>, <EXPRESSION> 


THE VALUE OF THE LAST EXPRESSION IS EXPECTED TO BE AN _ OPCODE 
WHICH WILL THEN BE EXECUTED BY THE INTERPRETER. EXECUTE MAY BE 
USED AS A STATEMENT AS WELL AS A <VALUE GENERATING FUNCTION 
DESIGNATOR>. 
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ADDRESS AND VALUE PARAMETERS 


ACTUAL PARAMETERS MAY BE PASSED TO A PROCEDURE EITHER BY NAME 
(WHICH PASSES THE ADDRESS OF THE ACTUAL PARAMETER) OR BY VALUE 
(WHICH PASSES A DUPLICATE COPY OF THE ACTUAL PARAMETER) . 


IF AN <ACTUAL PARAMETER> (SEE "VALUE VARIABLES" AND "EXECUTE 
PROCEDURE STATEMENT") IS PASSED BY ADDRESS, THEN ANY CHANGE TO 
THE CORRESPONDING <FORMAL PARAMETER> IN THE PROCEDURE WILL 
RESULT IN A CHANGE TO THE ORIGINAL VALUE OF THE <ACTUAL 
PARAMETER>. 


IF A PARAMETER IS PASSED BY VALUE, THEN ONLY THE DUPLICATE COPY 
OF THE <ACTUAL PARAMETER> CAN BE CHANGED. THE ORIGINAL VALUE 
REMAINS UNALTERED, AND THE DUPLICATE COPY IS ERASED WHEN THE 
PROCEDURE IS EXITED. 


AN <ACTUAL PARAMETER> MAY BE ANY EXPRESSION OR AN <ARRAY 
IDENTIFIER>. SDL HAS SPECIFIED THAT ARRAY IDENTIFIERS MAY ONLY 
BE PASSED BY ADDRESS. AN ARRAY ELEMENT, HOWEVER, MAY BE PASSED 
EITHER BY ADDRESS OR BY VALUE. 


EXPRESSIONS MAY BE DIVIDED INTO TWO GROUPS: 


1. THOSE WHICH MAY BE PASSED EITHER BY ADDRESS OR 
BY VALUE, AND 


ra THOSE WHICH MAY ONLY BE PASSED BY VALUE. 


AN <ADDRESS GENERATOR> IS PASSED BY ADDRESS UNLESS IT 15 
ENCLOSED WITHIN PARENTHESES, OR UNLESS THE FORMAL PARAMETER TO 
WHICH IT CORRESPONDS HAS BEEN DECLARED AS "FORMAL.VALUE". IN 
THESE TWO CASES <ADDRESS GENERATOR>S WILL BE LOADED BY VALUE. 
ALL OTHER EXPRESSIONS ARE LOADED BY VALUE ONLY. 


EXAMPLES OF PARAMETERS PASSED BY ADDRESS: 
P(BUMP X, A) 
P(B(BUMP M), SUBBIT(X,5)) 
P(NEXT.ITEM(B), A: C+D) 
EXAMPLES OF PARAMETERS PASSED BY VALUE: 
P( (BUMP X), (A), 3) 


P((B(BUMP M)), A+B) 
P(SWAP(A,0), (SUBSTR(A,5,3))) 
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I/O CONTROL STATEMENTS 


<1/0 CONTROL STATEMENT> ::= <OPEN STATEMENT); 
<CLOSE STATEMENT); 
<READ STATEMENT > 
<WRITE STATEMENT > 
<SEEK STATEMENT >; 
<ACCEPT STATEMENT >; 
<DISPLAY STATEMENT >; 
<SPACE STATEMENT > 
<SKIP STATEMENT > ; 


a i i i a 


EACH FILE IS NUMBERED SEQUENTIALLY, BEGINNING WITH ZERO. THIS 
NUMBER IS THE <FILE NUMBER> AND WILL EVENTUALLY BE USED AS AN 
INDEX INTO THE FIB DICTIONARY. THE FILE DECLARATION WILL BE 
USED TO CONSTRUCT AN FPB IN THE CODE FILE. 
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OPEN STATEMENT 


<OPEN STATEMENT>: := 


<OPEN PART): := 
<FILE DESIGNATOR>::= 


<OPEN ATTRIBUTE PART> 
<OPEN ATTRIBUTE LIST> 
<ATTRIBUTE SEPARATOR): := 


<OPEN ATTRIBUTED ::= 


<INPUT-OUTPUT MODE> ::= 
<LOCK MODE> ::= 


<OPEN ACTION MODE > 


<CODE FILE MODE> ::= 


<MFCU MODE>::= 


<FILE MISSING PART): : 


<FILE LOCKED PART): := 


FORMAT OPTIONS: 


1. OPEN DECLARED.FILE; 


~ NN ON 


<OPEN PART> 

<OPEN PART>; <FILE MISSING PART> 
<OPEN PART>; <FILE LOCKED PART > 

<OPEN PART>; <FILE MISSING PART> 


<FILE LOCKED PART> 


OPEN <FILE DESIGNATOR 
<OPEN ATTRIBUTE PART> 


<FILE IDENTIFIERD 
<SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<EMPTY> 
<OPEN ATTRIBUTE LIST> 
WITH <OPEN ATTRIBUTE LIST> 


<OPEN ATTRIBUTE> 
<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<OPEN ATTRIBUTE LIST> 


-» / SSLASH> / <EMPTY> 


<INPUT-OUTPUT MODE> 
<LOCK MODE> 

<OPEN ACTION MODE> 
<CODE FILE MODE> 
<MFCU MODE> 

INPUT / OUTPUT / NEW 
LOCK / LOCK.OUT 
NO.REWIND / REVERSE 
CODE .FILE 


PUNCH / PRINT / 
INTERPRET / STACKERS 


ON FILE.MISSING <EXECUTABLE STATEMENT > 


ON FILE.LOCKED <EXECUTABLE STATEMENT > 


IF NO ATTRIBUTES ARE SPECIFIED, "INPUT" IS ASSUMED. 


FOLLOWED BY: AND/OR 


LOCK 
LOCK .OUT 

NO.REWIND 

REVERSE 

LOCK, NO.REWIND 
LOCK, REVERSE 
LOCK.OUT, NO.REWIND 
LOCK.OUT, REVERSE 


e. OPEN DECLARED.FILE OUTPUT 


INPUT, OUTPUT 
OUTPUT, NEW 
INPUT, OUTPUT, NEW 


3. OPEN DECLARED.FILE WITH 


* "NEW" ALONE ASSUMES "OUTPUT, NEW". 


NOTE: THE COMBINATION "INPUT, NEW" RESULTS IN A 
SYNTAX ERROR. 


NOTE: "CODE.FILE" IS TO BE USED ONLY BY COMPILERS. 


IF THE <OPEN ATTRIBUTE>S HAVE BEEN EXPLICITLY OR IMPLICITLY 
INCLUDED IN THE FILE DECLARATION, THEN THE FILE NEED NOT BE 
EXPLICITLY OPENED HERE. 
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<CLO 


<FIL 


<CLO 


<CLO 


<ATT 


<CLO 


<CLO 


FORM 


1. 
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‘CLOSE <FILE DESIGNATOR> 
<CLOSE ATTRIBUTE PART> 


SE STATEMENT): ; 


E DESIGNATOR): : <FILE IDENTIFIERD 


/ SSWITCH FILE IDENTIFIER> (<EXPRESSION>) 


SE ATTRIBUTE PART> 


<EMPTY > 
/ <CLOSE ATTRIBUTE LIST> 
/ WITH <CLOSE ATTRIBUTE LIST> 
SE ATTRIBUTE LIST> <CLOSE ATTRIBUTE> 
/ <CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR) 
<CLOSE ATTRIBUTE LIST> 


RIBUTE SEPARATOR>: : 


, / <SLASH> / <EMPTY>. 


SE ATTRIBUTE> ::= <CLOSE MODE > 
/ CRUNCH / ROLLOUT / IF.NOT.CLOSED 
SE MODE> ::= REEL / RELEASE / PURGE / REMOVE 
/ NO.REWIND / LOCK / CODE.FILE 
AT OPTIONS: 


CLOSE DECLARED.FILE; 


THERE 1S NO DEFAULT. IF “LOCK" IS SPECIFIED AS PART OF THE 
FILE ATTRIBUTES, THE FILE IS LOCKED. OTHERWISE THE FILE IS 
NOT LOCKED. 


FOLLOWED BY AND/OR ONE OF: * 
O OR MORE OF: | 


IF .NOT.CLOSED 


CLOSE DECLARED.FILE ROLLOUT RELEASE 
CRUNCH PURGE 
CLOSE DECLARED.FILE IF .NOT.CLOSED REMOVE 
NO. REWIND 
LOCK 
CODE .FILE 
. IF MORE THAN ONE OPTION IS SPECIFIED, ONLY THE 


FINAL ONE IS USED BY THE COMPILER. 


[9-90 
FILES NEED NOT BE EXPLICITLY CLOSED. HOWEVER, CLOSING A FILE 
WHEN FINISHED WITH IT WILL FREE MEMORY SPACE FOR OTHER USES. 
NOTE: "CODE.FILE" IS TO BE USED ONLY BY COMPILERS. 


WHEN "CODE.FILE" IS USED, IT IS NOT NECESSARY - 
TO USE "LOCK" OR "CRUNCH". 
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READ STATEMENT 


<READ STATEMENT> ::= 


<READ PART> ::= 


<READ SPECIFIER>: := 


<FILE DESIGNATORD ::= 


<DISK READ SPECIFIERD 


<RECORD LOCK PART> 


<RECORD ADDRESS PART> 


<RECORD ADDRESS> ::= 


<REMOTE READ SPECIFIERD:: 


<REMOTE KEY PART): := 


<REMOTE KEY>::= 


<QUEVE READ SPECIFIERD>::= 


<QUEUVE FAMILY 
MEMBER PART): := 


<QUEVE FAMILY MEMBERD:: 


~ 


~ 


<READ PART>; 


<READ PART>;<EOF PART> 


<READ PART>;<PARITY PART) 
<READ PART>; <EXCEPTION PART> 


<READ SPECIFIER> 

<DISK READ SPECIFIER> 
<REMOTE READ SPECIFIER> 
<QUEUE READ SPECIFIER> 


READ <FILE DESIGNATOR> 
(<ADDRESS GENERATOR) ) 
& SEE "ADDRESS VARIABLES" 


<FILE IDENTIFIER>D 
<SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


READ <RECORD LOCK PART> 
<FILE DESIGNATOR? 
<RECORD ADDRESS PART> 
(<ADDRESS GENERATOR>) 
<EMPTY> / LOCK 


<EMPTY> 
[<RECORD ADDRESS> ] 


<EXPRESSION> 


READ <FILE DESIGNATOR> 


~€REMOTE KEY PART> 


(<ADDRESS GENERATOR>) 


<EMPTY> 
(<REMOTE KEY>) 


<ADDRESS GENERATOR> 
READ <FILE DESIGNATOR> 


<QUEVE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR) ) 


<EMPTY > 
(<QUEVE FAMILY MEMBER) ] 


<EXPRESSION> 


Lord 


<EOF PART> ::= ON EOF <EXECUTABLE STATEMENT > 


<EXCEPTION PART): := ON EXCEPTION <EXECUTABLE STATEMENT > 


THE <READ STATEMENT> PROVIDES THE NECESSARY INFORMATION TO READ 
A FILE: A FILE IDENTIFIER, RECORD ADDRESS, DATA’ INFORMATION, 
AND INSTRUCTIONS TO BE EXECUTED IF AN END-OF-FILE OR A PARITY 
ERROR IS DETECTED. 


THE <READ STATEMENT> SEPARATES FILES INTO FOUR CATEGORIES: DISK 
FILES, REMOTE FILES, QUEVE FILES, AND ALL OTHERS (CARD, TAPE, 
PAPERTAPE, ETC.). THE USER HAS THE OPTION OF SPECIFYING "LOCK" 
FOR EXCLUSIVE USE OF THE DISK FILE RECORD. IF THE FILE 
ATTRIBUTES INDICATE A RANDOM DISK FILE, THE USER MAY SPECIFY 
<RECORD ADDRESS>. IN ALL OTHER CASES, HE NEED ONLY GIVE THE 
<FILE IDENTIFIER> AND <ADDRESS GENERATOR). 


IF THE FILE IS OF TYPE "REMOTE", AND THE "REMOTE.KEY" ATTRIBUTE 
IS SET THEN A <REMOTE KEY> MAY BE USED. (FOR THE FORMAT OF 
THIS, SEE THE DISCUSSION UNDER "REMOTE.KEY" IN THE FILE 
DECLARATION SECTION.) IF THE "REMOTE.KEY" ATTRIBUTE IS NOT SET, 
THEN A <REMOTE KEY> MAY NOT BE USED. AFTER PERFORMING THE READ, 
THE "REMOTE KEY" WILL HAVE BEEN STORED IN THE FIELD SPECIFIED ~ 
AS THE <REMOTE KEY>. 


IF THE FILE IS OF TYPE "QUEUE" AND IS A MULTI-QUEUE FAMILY, THEN 
A <QUEUVE FAMILY MEMBER> MAY BE USED. THIS IS AN EXPRESSION 

WHOSE VALUE WILL SPECIFY WHICH MEMBER OF THE FAMILY TO READ 

FROM. IF THIS IS OMITTED, THEN THE OLDEST MESSAGE IN ALL OF THE 

QUEVES WILL BE READ. 


THE <EXECUTABLE STATEMENT>S OF THE <EOF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <READ STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 
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WRITE STATEMENT 


<WRITE STATEMENT) ::= 


<WRITE PART> ::= 


<WRITE SPECIFIERD 


<FILE DESIGNATOR> 


<CARRIAGE CONTROL PART> 


<CARRIAGE CONTROL 
SPECIFIER> ::= 
<SKIP-TO-CHANNEL> ::= 
<CHANNEL NUMBER> ;::= 


<DISK WRITE SPECIFIERD 


<EOF PART> ::= 
<EXCEPTION PART) ::= 
<RECORD LOCK PART> ::= 


<RECORD ADDRESS PART> 


<RECORD ADDRES'3> ::= 


<REMOTE WRITE 


~ 


~ 


<WRITE PART>; 
<WRITE PART>;<EOF PART> - 
<WRITE PART>;<EXCEPTION PART> 


<WRITE PART>;<EOF PART> <EXCEPTION PART> 


<WRITE SPECIFIER> 

<DISK WRITE SPECIFIER> 
<REMOTE WRITE SPECIFIERD> 
CQUEVE WRITE SPECIFIER> 


WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART > 
(<EXPRESSION>) | 
WRITE <FILE IDENTIFIER> 
<CARRIAGE CONTROL PART > 


<FILE IDENTIFIER> 
<SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<EMPTY> 

<CARRIAGE CONTROL SPECIFIER> 
NO / SINGLE / DOUBLE / PAGE. 
<SKIP-TO-CHANNEL> / NEXT 
<CHANNEL NUMBER) 

iTS SS cca F U7 fe 
WRITE <RECORD LOCK PART> 
<FILE DESIGNATOR> 

<RECORD ADDRESS PART> 
(<EXPRESSIOND) 

ON EOF <EXECUTABLE STATEMENT> 
ON EXCEPTION <EXECUTABLE STATEMENT> 
<EMPTY> / LOCK 


<EMPTY > 
(<RECORD ADDRESS> } 


<EXPRESSION> 
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SPECIFIER>: := WRITE <FILE DESIGNATOR> 
<REMOTE KEY PART> | 
(<EXPRESSION> ) 


<REMOTE KEY PART): := <EMPTY> 
| / [C<REMOTE KEY) ] 


<REMOTE KEY>::= <ADDRESS GENERATOR> 


<QUEVE WRITE 

SPECTIAL>::= WRITE <FILE DESIGNATOR> 
<QUEVUE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR?) 


<FILE DESIGNATOR): := <FILE IDENTIFIERD 
<SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


<QUEVE FAMILY 7 
MEMBER PART): := <EMPTY> 
/ (<QUEUE FAMILY MEMBER> ] 


<QUEUE FAMILY MEMBER): := <EXPRESSION> 


THE <WRITE STATEMENT> PROVIDES THE NECESSARY INFORMATION TO 
WRITE A FILE. THE <WRITE STATEMENT> TREATS ODOISK FILES 
SEPARATELY FROM OTHER FILE TYPES BY ALLOWING THE USER THE 
OPTION OF LOCKING DISK FILE RECORDS, AND SPECIFYING <RECORD 
ADDRESS> ON HIS RANDOM DISK FILES. THE <CARRIAGE CONTROL PART> 
IS INTENDED FOR USE WITH A PRINTER FILE. 


IF THE FILE IS OF TYPE "REMOTE", AND THE “REMOTE.KEY" ATTRIBUTE 
IS SET THEN A <REMOTE KEY> MAY BE USED. (FOR THE FORMAT OF 
THIS, SEE THE DISCUSSION UNDER "“REMOTE.KEY" IN THE FILE 
DECLARATION SECTION.) IF THE "REMOTE.KEY" ATTRIBUTE IS NOT SET, 
THEN A <REMOTE KEY> MAY NOT BE USED. THE <REMOTE KEY> WILL 
SPECIFY THE TERMINAL TO WHICH THE WRITE IS TO BE PERFORMED. 


IF THE FILE IS OF TYPE "QUEUE" AND IS A MULTI-QUEUE FAMILY, THEN 
A SQUEUE FAMILY MEMBER> MAY. BE USED. THIS IS AN EXPRESSION 

WHOSE VALUE WILL SPECIFY WHICH MEMBER OF THE FAMILY TO WRITE 

T O e . . 


THE <EXECUTABLE STATEMENT>S OF THE <EOF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <WRITE STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 


IF THE <END-OF-PAGE PART> IS SET IN THE FILE ATTRIBUTES, THEN 
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WHEN END-OF-PAGE IS DETECTED ON A PRINTER FILE, THE <EOF PART> 
WILL BE EXECUTED. THIS FACILITATES, FOR EXAMPLE, PRINTING 
TOTALS AND/OR HEADINGS WITHOUT KEEPING A LINE COUNTER. 


EXAMPLE : 


WRITE PRINTOUT SINGLE (PRINT.LINE); 
ON EOF DO; 
WRITE PRINTOUT; % SKIP A LINE; 
WRITE PRINTOUT PAGE (TOTALS); 
WRITE PRINTOUT DOUBLE (HEADER) ; 
END; 


ho ae 


SEEK STATEMENT 


<SEEK STATEMENT > 


SEEK <RECORD LOCK PART> 
<FILE DESIGNATOR> 
[<RECORD ADDRESS> ] 


<RECORD LOCK PART> ::= <EMPTY> / LOCK 


<FILE DESIGNATORD: : <FILE IDENTIFTER> 


/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<RECORD ADDRESS> 


<EXPRESSION> 


THE <SEEK STATEMENT> CALLS UP A RECORD FROM A RANDOM DISK FILE 
IN PREPARATION FOR A READ ON THAT RECORD. THIS STATEMENT SHOULD 
ONLY BE USED WITH DISK FILES THAT ARE BEING READ USING A RANDOM 
ACCESS TECHNIQUE. 


A <SEEK STATEMENT> PERFORMED IMMEDIATELY PRIOR TO A_ <READ 
STATEMENT> IS LESS EFFECTIVE THAN MERELY READING THE RECORD. 
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ACCEPT STATEMENT 


<ACCEPT STATEMENT> ::= — ACCEPT <ADDRESS GENERATOR> 
<END-OF-TEXT SPECIFIER> 


<END-OF -TEXT , 
SPECIFIER> ::= <EMPTY> 
/ , END.OF.TEXT 


THE <ACCEPT STATEMENT> CAUSES THE EXECUTION OF A PROGRAM TO HALT 
_ UNTIL THE APPROPRIATE INFORMATION IS ENTERED VIA THE SPO BY THE 

OPERATOR. THE MESSAGE KEYED IN WILL BE READ INTO THE AREA 

SPECIFIED BY THE <ADDRESS GENERATOR> FOLLOWING THE RESERVED 

WORD "ACCEPT". 


IF ", END.OF.TEXT" IS SPECIFIED, THE SYSTEM WILL INCLUDE THE 
"END OF MESSAGE" CHARACTER WITH THE MESSAGE. OTHERWISE, THE 
"END OF MESSAGE" CHARACTER IS OMITTED, AND THE REST OF THE 
SPECIFIED AREA IS FILLED WITH BLANKS. 


SEE "ADDRESS VARIABLES" FOR THE SYNTAX OF THE  <ADDRESS 
GENERATOR>. | 
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DISPLAY STATEMENT 


<DISPLAY STATEMENT> ::= DISPLAY <EXPRESSION> 
<CRUNCH SPECIFIER> 


<CRUNCH SPECIFIER> ::= <EMPTY> 
/ , CRUNCHED 


THE <DISPLAY STATEMENT> PRINTS AN OUTPUT MESSAGE ON THE SPO. AS 
NOTED, THE <CRUNCH SPECIFIER> IS OPTIONAL. IF ", CRUNCHED" IS 
SPECIFIED, THE SYSTEM WILL DELETE TRAILING BLANKS AND ALL 
OCCURRENCES OF EMBEDDED BLANKS. ONE BLANK IS SUBSTITUTED FOR 
EACH OCCURRENCE OF MULTIPLE EMBEDDED BLANKS. 
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SPACE STATEMENT 


<SPACE STATEMENT> ::= <SPACE PART); 
/ <SPACE PART>; <EOF PART> 
<SPACE PART>; <EXCEPTION PART> 


“~ 


/ <SPACE PART>; <EOF PART> <EXCEPTION PART> 


<SPACE PART> ::= SPACE <FILE DESIGNATOR> 

<SPACING SPECIFIER> 
<FILE DESIGNATOR> ::= <FILE IDENTIFIER> 
| / <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 
<SPACING SPECIFIER> ::= <EXPRESSION> / TO <EXPRESSION> 
<EOF PART> ::= ON EOF <EXECUTABLE STATEMENT> 
<EXCEPTION PART>: := ON EXCEPTION <EXECUTABLE STATEMENT> 


THE <SPACE STATEMENT> ALLOWS THE USER TO SKIP OVER CERTAIN 
RECORDS IN A SEQUENTIAL FILE. 


THE <SPACING SPECIFIER> MAY TAKE TWO FORMS. AN <EXPRESSION>D 
ALONE WILL INDICATE THE NUMBER OF RECORDS TO BE SPACED. IT MAY 
BE A NEGATIVE NUMBER INDICATING REVERSE SPACING. "TO 
<EXPRESSION>" WILL ALWAYS BE A POSITIVE NUMBER AND- INDICATES 
THE NUMBER OF THE RECORD TO SPACE TO. 


THE <EXECUTABLE STATEMENT>S OF THE <EOF PART> AND <EXCEPTION 
PART> ARE CONSIDERED SUBORDINATE TO THE <SPACE STATEMENT>. 
THEREFORE, SEGMENTATION OF THESE STATEMENTS IS TEMPORARY (SEE 
"THE SEGMENT STATEMENT"). 
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SKIP STATEMENT 


<SKIP STATEMENT > 


SKIP <FILE IDENTIFIER> TO <CHANNEL NUMBER> 


<FILE DESIGNATOR> ::= <FILE IDENTIFIERD>D 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<SKIP STATEMENT > 


SKIP <FILE DESIGNATOR> TO <CHANNEL NUMBER> 
<CHANNEL NUMBER > 


lt fe, S2t se SAD # be 


THE <SKIP STATEMENT> CAUSES THE LINE PRINTER TO SKIP TO A 
SPECIFIED CHANNEL NUMBER ON ITS CARRIAGE TAPE. THE CHANNEL 
NUMBERS CONTROL THE VERTICAL SPACING OF DATA ON A PRINTED PAGE. 
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EXECUTABLE STATEMENTS 


EXECUTABLE STATEMENT | 
LIST> ::= <EXECUTABLE STATEMENT > 
/ <EXECUTABLE STATEMENT > | 
<EXECUTABLE STATEMENT LIST> 


<EXECUTABLE STATEMENT> ::= <DO GROUP>; 

| <GROUP TERMINATION STATEMENT) ; 
<IF STATEMENT > 

<CASE STATEMENT); 

ASSIGNMENT STATEMENT) ; 
<EXECUTE-PROCEDURE STATEMENT) ; 
<EXECUTE-FUNCTION STATEMENT) ; 
<1/0 CONTROL STATEMENT> 
<MODIFY INSTRUCTION>; 

<NULL STATEMENT > 

<FILE ATTRIBUTE STATEMENT); 
<STOP STATEMENT? ; 

<ZIP STATEMENT>; 

<SEARCH STATEMENT> | 
<ACCESS FILE HEADER STATEMENT> 
<SEND STATEMENT> 

<RECEIVE STATEMENT> 

<ARRAY PAGE TYPE STATEMENT> 
<WAIT STATEMENT); 

<SEGMENT STATEMENT > 
<EXECUTABLE STATEMENT > 


~N NN ON ONS 


“~ 


™NmN NNR RR RRR RS 


<ASSITGNMENT STATEMENT>D ::= SEE "ASSIGNMENT STATEMENTS 
AND EXPRESSIONS" 


<1/O0 CONTROL STATEMENT> ::= SEE "I/O CONTROL STATEMENTS" 


<SEGMENT STATEMENT> ::= SEE "THE SEGMENT STATEMENT" 
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DO GROUPS 


<DO GROUP> ::= <GROUP HEAD> 
<GROUP BODY> 

<GROUP HEAD> <GROUP NAME> 

<FOREVER PART; 


<GROUP NAME> DO 


/ DO <GROUP IDENTIFIER> 


<FOREVER PART> ::= <EMPTY> 
/ FOREVER 
<GROUP IDENTIFIER>D ::= <IDENTIFIER>D 
<GROUP BODY> ::= <EXECUTABLE STATEMENT LIST> 


<GROUP ENDING> 


<GROUP ENDING> ::= END 
/ END <GROUP IDENTIFIER> 


THE <DO GROUP> IS A COLLECTION OF <EXECUTABLE STATEMENT>S WHICH 
FUNCT IONS AS A ROUTINE. IT IS EXECUTED ONCE UNLESS "FOREVER" 
APPEARS AFTER THE <GROUP NAME>. | 


IF "FOREVER" IS PRESENT, THE <DO GROUP> WILL BE EXECUTED 
ITERATIVELY UNTIL A SPECIFIC CONDITION IS MET. ONLY A <GROUP. 
TERMINATION STATEMENT> (UNDO) OR A <TYPED PROCEDURE RETURN 
STATEMENT> (RETURN) CAN GET THE PROGRAM OUT OF THIS LOOP. SEE 
THE FOLLOWING EXAMPLE: 


DO THIS FOREVER; 
READ CARD (A); ON EOF UNDO; 
IF 55 GTR BUMP X 
THEN WRITE PRINTER (A); 


ELSE DO; 
X~+1; 
WRITE PRINTER PAGE (A); 
END; 
END THIS; 


IF IT IS NECESSARY TO EXECUTE THE STATEMENTS IN A <DO_ GROUP> 
FROM DIFFERENT POINTS IN THE PROGRAM, MORE EFFICIENT CODE IS 
GENERATED BY MAKING THE BODY OF THE GROUP A PROCEDURE RATHER 
THAN BY REPEATING THE <DO GROUP>. 


RESTRICTIONS: 


1. 


IF A <GROUP IDENTIFIER> IS INCLUDED IN THE 
<GROUP NAME>, IT MUST ALSO APPEAR IN’ THE 
<GROUP ENDING>. 


IF THE <GROUP NAME> DOES NOT INCLUDE AN 
IDENTIFIER, | THE <GROUP ENDING> MUST NOT 
CONTAIN ONE. 


"FOREVER" IS NOT A RESERVED WORD AND MAY 
APPEAR AS THE <GROUP IDENTIFIERD. "DO 
FOREVER;" IS CONSIDERED TO BE THE <GROUP HEAD> 
OF AN UN-NAMED, ITERATIVE <DO GROUP>. "DO 
FOREVER FOREVER" IS A LEGAL HEADING FOR A 
NAMED, ITERATIVE GROUP. 


NESTED <DO GROUP>S MAY NOT HAVE DUPLICATE 
IDENTIFIERS. IF THIS OCCURS, A WARNING MESSAGE 
WILL APPEAR ON THE PROGRAM LISTING. 


<DO GROUP>S MAY BE NESTED 3e LEVELS DEEP. 


HOWEVER, A <GROUP TERMINATION STATEMENT> CAN 
UNDO ONLY A MAXIMUM OF 16 LEVELS. 
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GROUP TERMINATION STATEMENT 


<GROUP TERMINATION 4 
STATEMENT> ::= UNDO 
/ UNDO (*) 
/ UNDO <GROUP IDENTIFIER> 


<GROUP IDENTIFIER> ::= C<IDENTIFIERD 


THE <GROUP TERMINATION STATEMENT> WILL CAUSE THE EXECUTION OF A 
<DO GROUP> TO CEASE, AND WILL TRANSFER CONTROL TO THE NEXT 


STATEMENT FOLLOWING THE <DO GROUP> WHICH HAS BEEN "UNDONE". 


STATEMENT MAY TAKE ONE OF THREE FORMS: 


1. "UNDO" WILL TRANSFER CONTROL OUT OF THE 


GROUP> WHICH CONTAINS THE STATEMENT. 

2. IF <DO GROUP>S ARE NESTED, "UNDO 
TRANSFERS CONTROL OUT OF THE OUTERMOST 
GROUP>. | | 

3. "UNDO <GROUP IDENTIFIER>" TAKES CONTROL OUT OF 


THE <DO GROUP> SPECIFIED BY THE IDENTIFIER. 


NOTE: UNDO (*) AND UNDO <IDENTIFIER> CAN UNDO A 


MAXIMUM OF 16 LEVELS. 


EXAMPLE : 
1s DO ONE ; 
mie DO TWO FOREVER; 
FF IF <EXPRESSION> THEN 
Y. DO THREE; 
or CASE <EXPRESSION); , 
6. UNDO; /* SAME AS UNDO THREE ; 
Ts UNDO TWO; 
8. UNDO (#); /* SAME AS UNDO ONE; 
= END CASE; | 
10. END THREE ; 
11. END TWO; 
le. END ONE ; 


EXECUTION OF LINE 6 TRANSFERS CONTROL TO LINE 11. 
EXECUTION OF LINE 7 TRANSFERS CONTROL TO LINE Ie. 
EXECUTION OF LINE 8 TRANSFERS CONTROL TO THE NEXT 


STATEMENT FOLLOWING LINE le. 


THE 


*/ 


IF STATEMENT 


<IF STATEMENT> 


<IF CLAUSE > 
<EXECUTABLE STATEMENT > 
/ <IF CLAUSE> 
<EXECUTABLE STATEMENT > 
ELSE <EXECUTABLE STATEMENT > 


<IF CLAUSE> ::= IF <EXPRESSION> THEN 


THE <EXPRESSION> IS EVALUATED. IF THE LOW-ORDER BIT OF THE 
RESULT IS 1 (1.£., TRUE), THE STATEMENT FOLLOWING "THEN" IS 
EXECUTED. IF THE LOW-ORDER BIT IS O (I.E., FALSE), THE 
STATEMENT FOLLOWING "ELSE" (IF PRESENT) IS EXECUTED. IF THE 
RESULT OF THE<EXPRESSION> IS FALSE, AND THE "ELSE" PART IS 
OMITTED, CONTROL IS TRANSFERRED TO THE NEXT STATEMENT AFTER THE 
<IF STATEMENT>. 


<IF STATEMENT>S MAY BE NESTED. THE OUTERMOST <IF CLAUSE> AND THE 
OUTERMOST "ELSE" ARE ON NESTING LEVEL O. THE <EXECUTABLE 

STATEMENT>S FOLLOWING "THEN" AND "ELSE" ARE ON NESTING LEVEL 1. 

NESTING MAY BE NO DEEPER THAN 32 LEVELS. 


WHEN USING NESTED <IF STATEMENT>S, THE USER MUST MAINTAIN 
CORRESPONDENCE BETWEEN THE DELIMITERS "THEN" AND "ELSE" ON EACH 
LEVEL. THE INNERMOST "ELSE" WILL ALWAYS BE ASSOCIATED WITH THE 
INNERMOST "THEN". FROM THIS POINT CONTINUES AN OUTWARD 
PROGRESSION (1.E., FROM HIGHEST NESTING LEVEL TO LOWEST) OF 
"THEN-ELSE" ASSOCIATION. 3 


THUS, IF AN <IF STATEMENT> ON NESTING LEVEL N IS TO HAVE AN 
"ELSE" ASSOCIATED WITH IT, THEN EVERY <IF STATEMENT> ON A 
NESTING LEVEL GREATER THAN N MUST ALSO HAVE "ELSES" ASSOCIATED 
WITH THEM. IF THE USER WISHES TO EXECUTE NOTHING ON A_ FALSE 
CONDITION, THEN "ELSE" FOLLOWED BY A <NULL STATEMENT> MAY BE 
USED. 
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EXAMPLE : 


LET E-1, E-2, E-3, AND E-4 BE <EXPRESSIONDS — 
LET S-e, S-3, AND S-4 BE <EXECUTABLE STATEMENT >S 


IF E-] 
THEN IF E-e2 
THEN IF E-3 
THEN IF E-4 
THEN S-4; 
ELSE; 
ELSE S-3; 
ELSE S-e; 
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CASE STATEMENT 


<CASE STATEMENT > <CASE HEAD> 


<CASE BODY> 


<CASE HEAD> 


CASE <EXPRESSION>D ; 


<CASE BODY> 


<EXECUTABLE STATEMENT LIST> 
<CASE ENDING> 


<CASE ENDING> ::= END CASE 


THE <EXPRESSION> SERVES AS AN INDEX INTO THE LIST OF <EXECUTABLE 
STATEMENT>S. THE STATEMENT SELECTED IS EXECUTED, AND THE OTHERS 
IGNORED. CONTROL IS THEN TRANSFERRED TO THE STATEMENT FOLLOWING 
THE <CASE ENDING> UNLESS, OF COURSE, THE STATEMENT IS A 
"RETURN" OR AN "UNDO". 


IF THERE ARE N NUMBER OF STATEMENTS IN THE LIST, THEN THE RANGE 
OF THE VALUE OF THE <EXPRESSION> MAY BE FROM 0 THROUGH N-1. 


THE STATEMENTS IN THE LIST MAY BE ANY LEGAL <EXECUTABLE 
STATEMENT> ALLOWED IN SDL. IF THE USER WISHES TO EXECUTE 
NOTHING IN A GIVEN CASE, THE <NULL STATEMENT> IS AN APPROPRIATE 
STATEMENT. 
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EXECUTE-PROCEDURE STATEMENT 


<EXECUTE-PROCEDURE | 
STATEMENT> ;::= | <NON-TYPED PROCEDURE DESIGNATOR> 


<NON-TYPED PROCEDURE 


DESIGNATOR> ::= | <NON-TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART> 


<NON-TYPED PROCEDURE 
IDENTIFIER> ::= <IDENTIFIER> 


<ACTUAL PARAMETER PART> ::= <EMPTY> 
3 / (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMETER> 
/ <ACTUAL PARAMETER>, 
<ACTUAL PARAMETER LIST> 


<ACTUAL PARAMETER> ~ <EXPRESSION> 


/ <ARRAY DESIGNATOR> 


<ARRAY DESIGNATORD> : <ARRAY IDENTIFIER>D 


A NON-TYPED PROCEDURE, I1.E£., A PROCEDURE WHICH PERFORMS A 
FUNCTION AND DOES NOT RETURN A VALUE, IS INVOKED THROUGH AN 
<EXECUTE-PROCEDURE STATEMENT>. THE NAME OF THE PROCEDURE IS 
FOLLOWED BY ITS PARAMETERS ENCLOSED IN PARENS. REFER TO THE 
SECTION "ADDRESS AND VALUE PARAMETERS" FOR INFORMATION 
CONCERNING PASSING PARAMETERS. 


FOR A DESCRIPTION OF THE INVOCATION OF TYPED PROCEDURES, SEE 
"VALUE VARIABLES". 
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EXECUTE-FUNCTION STATEMENT 


<EXECUTE-FUNCTION 
STATEMENT> ::= <FUNCTION DESIGNATOR> 


<FUNCTION DESIGNATOR> ::= | <DUMP DESIGNATOR> 

<TRACE DESIGNATOR> 

<SAVE DESIGNATOR> 

<RESTORE DESIGNATOR? 

<FETCH DESIGNATOE> 

<HALT DESIGNATOR 

<REINSTATE DESIGNATOR> 
<ACCESS-FPB DESIGNATOR> 
<REVERSE STORE DESIGNATOR> 
<READ CASSETTE DESIGNATOR> 
<OVERLAY DESIGNATOR> 

<ACCESS OVERLAY DESIGNATOR> 
<ERROR COMMUNICATE DESIGNATOR> 
<SORT DESIGNATOR> 

<SORT.SWAP DESIGNATOR> 
<INITIALIZE.VECTOR DESIGNATOR> 
<THREAD.VECTOR DESIGNATOR> _ 
<ENABLE. INTERRUPTS DESIGNATOR> 
<DISABLE. INTERRUPTS DESIGNATOR> 
<ACCESS FILE INFORMATION 
DESIGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 
<SAVE STATE DESIGNATOR> 
<DEBLANK DESIGNATOR> 
<FREEZE-PROGRAM DESIGNATOR> 
<THAW-PROGRAM DESIGNATOR> 
<DUMP-FOR-ANALYSIS DESIGNATOR> 
<COMPILE-CARD-INFO DESIGNATOR? 
<COMMUNICATE DESIGNATOR> 


MN RRR RRR RRR RR RRR RRS 


~N NR RRR 


DUMP 


-<DUMP DESIGNATOR> ::= DUMP 


THE SDL STACKS WILL BE DUMPED TO THE LINE PRINTER IN _ SOME 
REASONABLE FORMAT. PROGRAM EXECUTION WILL CONTINUE AFTER THE 
DUMP . | 
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<TRACE DESIGNATOR> ::= TRACE / NOTRACE / TRACE (<EXPRESSION>)) 


THE "TRACE" WILL CAUSE THE SDL INSTRUCTIONS OF THE NORMAL STATE 
PROGRAM TO BE TRACED ON THE LINE PRINTER. "NOTRACE" WILL TURN 
OFF THE TRACE. 


"TRACE (<EXPRESSION>)" PROVIDES GREATER CONTROL OF THE TRACING 
TO BE DONE. THE LOW-ORDER 10 BITS ARE USED IN THE FOLLOWING WAY 
(NUMBERING OF THE 10 IS FROM LEFT TO RIGHT): 


BIT USE 


0 TRACE ALL COMMANDS EXCEPT THOSE WHICH MODIFY 
DATA OR CHANGE THE PROGRAM POINTER STACK. 
NORMAL STATE ONLY. 


| TRACE COMMANDS WHICH MODIFY DATA ITEMS (E.G., 
CLR, SNDL, ETC.). NORMAL STATE ONLY. 


2 TRACE COMMANDS WHICH CHANGE THE PROGRAM 
POINTER STACK (£.G., IFTH, CASE, EXIT, ETC,). 
NORMAL STATE ONLY. 


3 NOT USED. 
4-6 SAME AS 0-2, BUT FOR MCP. SEVERAL MCP ROUTINES 


(GETSPACE, FORGETSPACE, AND OTHERS) WILL NOT 
BE TRACED. 


7-9 SAME AS O-e, BUT WILL TRACE THOSE MCP ROUTINES 
NOT TRACED BY 4-6. 


NOTE THAT "TRACE (@380®)" IS THE SAME AS "TRACE", WHILE "TRACE (0) 
IS THE SAME AS "NOTRACE". 


SAVE 


<SAVE DESIGNATOR> ::= SAVE (<EXPRESSION LIST>) 


EACH OF THE <EXPRESSION>S, FROM LEFT TO RIGHT, WILL BE 
EVALUATED, AND THE VALUE OF EACH LEFT ON THE EVALUATION. STACK 
(AND VALUE STACK, IF NECESSARY). SEE <RESTORE DESIGNATOR>. 
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RESTORE 


<RESTORE DESIGNATOR> ::= RESTORE (<ADDRESS GENERATOR LIST>) 
<ADDRESS GENERATOR 
LIST2 435 SEE "ADDRESS GENERATORS" 


THE <RESTORE DESIGNATOR> ASSIGNS THE CURRENT VALUE ON THE TOP OF 
THE EVALUATION STACK TO EACH <ADDRESS GENERATOR>, FROM RIGHT TO 
LEFT, IN THE LIST. THIS OPERATOR IS USED IN CONJUNCTION WITH 
THE <SAVE DESIGNATOR>. SEE ABOVE. 

EXAMPLE : 


SAVE (A,B,C); 


RESTORE (A,B,C); 
NOTE THAT "RESTORE (A,B,C)" IS THE SAME AS: 
RESTORE (C); 


RESTORE (B); 
RESTORE (A); 


<FETCH DESIGNATOR>D ::= FETCH (<I/O REFERENCE ADDRESS>, 
<PORT, CHANNEL, PRIORITY ADDRESS>, 
<RESULT DESCRIPTOR ADDRESS>) 


<I/O REFERENCE 


ADDRESS> ::= — CEXPRESSION>D 
<PORT , CHANNEL , 

PRIORITY ADDRESS> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR> ::= SEE "ADDRESS GENERATORS" 


<RESULT DESCRIPTOR 
ADDRESS> ::= <ADDRESS GENERATOR> 


THE <FETCH DESIGNATOR> FETCHES THE RESULT OF AN I/O. OPERATION. 
IF THERE IS A HIGH PRIORITY INTERRUPT, THEN THAT INTERRUPT WILL 
BE REPORTED. OTHERWISE, IF THE <I/O REFERENCE ADDRESS> IS 
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NON-ZERO, THEN ONLY AN INTERRUPT ON AN I/O DESCRIPTOR WITH THE 
REFERENCE ADDRESS THE SAME AS THE <I/O0 REFERENCE ADDRESS> WILL 
BE REPORTED. IF NOT FOUND, THE FIRST INTERRUPT ENCOUNTERED (IF 
ANY) WILL BE REPORTED. THE PORT (BIT 3), CHANNEL (BIT 3), AND 
PRIORITY (BIT 1) OF THE INTERRUPT ARE STORED FROM LEFT TO RIGHT 
IN THE LOW-ORDER 7 BITS OF <PORT, CHANNEL, PRIORITY ADDRESS> 
THE I/O RESULT DESCRIPTOR REFERENCE ADDRESS IS STORED IN’ THE 
LOW-ORDER e4% BITS OF THE <RESULT DESCRIPTOR ADDRESS>. IF THERE 
WERE NO INTERRUPTS, THEN THESE TWO FIELDS WILL BE ZERO. 


HALT 


<HALT DESIGNATOR> ::= HALT (<EXPRESSION> ) 


THE <HALT DESIGNATOR> CAUSES THE VALUE OF THE <EXPRESSION> TO BE 
MOVED TO THE M-MACHINE T-REGISTER. IF THE VALUE IS LONGER THAN 
e+ BITS, ONLY THE LOW-ORDER 24 BITS ARE MOVED. IF THE VALUE IS 
LESS THAN @4 BITS, THE VALUE IS RIGHT JUSTIFIED AND LEADING 
ZEROES ARE ADDED. | 


AFTER THE VALUE IS MOVED, AN M-MACHINE HALT IS EXECUTED. 


EXAMPLES: 


DECLARE X BIT(24); 
HALT (X:< HEX. SEQUENCE. NUMBER) ; 


DECLARE X BIT(24); | | 
HALT (SUBBIT (HEX.SEQUENCE.NUMBER, O, e4)); 


REINSTATE 
<REINSTATE DESIGNATOR> ::= REINSTATE (<REINSTATED PROGRAM>) 


<REINSTATED PROGRAM) ::= <ADDRESS GENERATOR> 


THE <REINSTATED PROGRAM> IS ASSUMED TO DESCRIBE THE FIELD 
RS.COMMUNICATE.MSG.PTR OF RS.NUCLEUS OF THE PROGRAM TO BE 


 .REINSTATED (SEE DESCRIPTION OF THE RUN STRUCTURE IN "B1710 MCP 
REFERENCE MANUAL"). 


THE REINSTATING PROGRAM-S M-MACHINE STATE IS STORED IN THE 
APPROPRIATE PARTS OF ITS RS.NUCLEUS. THE ADDRESS OF THE 


16-13 


REINSTATING PROGRAM-S RS.NUCLEUS IS STORED IN THE REINSTATED 
PROGRAM-S RS.COMMUNICATE.LR. 


THE PROGRAM WHOSE RS.COMMUNICATE.MSG.PTR IS DESCRIBED BY 
<REINSTATED PROGRAM> IS THEN REINSTATED. 


ACCESS-FPB 


<ACCESS-FPB 
DESIGNATOR> ::= <ACCESS-FPB IDENTIFIERD 
(<FILE SPECIFIERD, 
<SOURCE OR DESTINATION FIELD)) 


<ACCESS-FPB IDENTIFIER> ::= READ.FPB / WRITE.FPB 
<FILE SPECIFIER> ::= <FILE DESIGNATOR> 
/ <FILE NUMBER> 
<FILE DESIGNATOR> ::= <FILE IDENTIFIERD 
/ <SWITCH FILE IDENTIFIER>D (<EXPRESSION)) © 
<FILE NUMBER> ::= <EXPRESSION>D 
<SOURCE OR DESTINATION 
PIELD> 225 | <ADDRESS GENERATOR> 
<ADDRESS GENERATOR> ::= SEE "ADDRESS GENERATORS" 


THE FILE PARAMETER BLOCK OF THE FILE INDICATED BY THE <FILE 
SPECIFIER> IS READ INTO, OR WRITTEN FROM THE <SOURCE OR 
DESTINATION FIELD>. 


NOTE THAT THE <SOURCE OR DESTINATION FIELD> SHOULD BE 1440 BITS 
IN LENGTH. 


REVERSE STORE 


<REVERSE STORE 
DESIGNATOR> ::= REVERSE .STORE : 
(<ADDRESS GENERATOR LIST>,<EXPRESSION>) 


<ADDRESS GENERATOR 
LIST> ::5 SEE "ADDRESS GENERATORS" 
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THE REVERSE.STORE OPERATION HAS THE EFFECT OF EVALUATING 
MULTIPLE STORE OPERATIONS FROM LEFT TO RIGHT INSTEAD OF FROM 
RIGHT TO LEFT. SEE "THE REPLACE OPERATORS". 


FOR EXAMPLE: 


REVERSE.STORE (L,M,N,P,X+1); 
HAS THE SAME EFFECT AS: 
<M; 
M<+N; 
N<-P; 
P<-X+1; 


WITH THE REVERSE.STORE, HOWEVER, THE DESCRIPTOR FOR’ EACH 
<ADDRESS GENERATOR> IN THE LIST IS DETERMINED ONLY ONCE. | 


NOTE: 
REVERSE .STORE (L,M,N,P,X+1); 
IS NOT THE SAME AS 
L<+M<+N+P+ X+1; 


READ CASSETTE 


<READ CASSETTE | 
DESIGNATOR>: := READ.CASSETTE (<DESTINATION SPECIFIER, 
| | <HASH. TOTAL SPECIFIER>, <RESULT SPECIFIER? 


<DESTINATION SPECIFIERD: := <ADDRESS GENERATOR> 


<HASH. TOTAL SPECIFIER>: := HASH. TOTAL 
/ NO.HASH. TOTAL 


<RESULT SPECIFIERD::= <ADDRESS GENERATOR> 


THE <READ CASSETTE DESIGNATOR> CAUSES THE NUMBER OF BITS 
SPECIFIED BY THE <DESTINATION SPECIFIER> TO BE READ FROM THE 
CONSOLE CASSETTE TO THE ADDRESS SPECIFIED BY THAT <DESTINATION 
SPECIFIER>. THIS NUMBER OF BITS MUST BE EQUAL TO THE RECORD 
SIZE MINUS THE HASH-TOTAL SIZE (IF IT IS PRESENT) OF 16 BITS. 
THE <HASH.TOTAL SPECIFIER> INDICATES WHEATHER OR NOT A 
HASH-TOTAL IS EXPECTED AT THE END OF THE RECORD. 


A VALUE OF 0 OR 1 WILL BE LEFT IN THE <RESULT SPECIFIER>D 
INDICATING THAT THE HASH-TOTAL WAS INCORRECT OR CORRECT, 
RESPECTIVELY. 
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OVERLAY 


<OVERLAY DESIGNATOR> ::= OVERLAY (<EXPRESSION>) 


THE <EXPRESSION> WILL BE USED AS AN INDEX INTO THE INTERPRETER 
DICTIONARY BY THE INTERPRETER SWAPPER. THE INTERPRETER 
DICTIONARY ENTRY WILL SPECIFY THE ACTION TO BE TAKEN. SEE THE 
-"B1710 MCP REFERENCE MANUAL". 


ACCESS OVERLAY 


<ACCESS OVERLAY 
DESIGNATOR> ::= <ACCESS OVERLAY IDENTIFIER> (<EXPRESSIOND) 


ACCESS OVERLAY 
IDENTIFIER> ::= READ.OVERLAY / WRITE.OVERLAY 


THE VALUE OF THE <EXPRESSION> IS ASSUMED TO BE A 76-BIT FIELD 
WITH THE FOLLOWING FORMAT FROM HIGH-ORDER TO LOW-ORDER: 


BITS CONTENTS 

0-3 EU = 0 (NOT USED) 

4-27 BASE RELATIVE BEGINNING ADDRESS 
28-51 BASE RELATIVE ENDING ADDRESS 

52-75 DISK ADDRESS (RELATIVE TO USER AREA) 


THE AREA DESCRIBED BY THE BEGINNING AND ENDING ADDRESSES IS READ 
TO, OR WRITTEN FROM THE USER DISK AT THE (RELATIVE) DISK 
ADDRESS GIVEN. 


ERROR COMMUNICATE 


<ERROR COMMUNICATE | 
DESIGNATOR> ::= ERROR.COMMUNICATE. (<EXPRESSION>). 


THE VALUE OF THE EXPRESSION SHOULD BE OF THE FOLLOWING FORM: 
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2 BITS 6 BITS 16 BITS | 24 BITS 


WHERE N IS THE ERROR NUMBER. 


THE VALUE OF THE EXPRESSION WILL BE PUT ON THE EVALUATION STACK 
AS A DESCRIPTOR, AND AN MCP COMMUNICATE WILL BE PERFORMED. 


SORT 


<SORT DESIGNATOR>D ::= 


<SORT INFORMATION TABLE 


SPECIFIER> ::= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR? : := SEE “ADDRESS GENERATORS" 
<SORT KEY TABLE 

SPECIFIER> ::= | <ADDRESS GENERATOR> 
<INPUT FILE DESIGNATOR ::= <FILE DESIGNATOR? 
<OUTPUT FILE 

DESIGNATOR? ::= <FILE DESIGNATOR> 

<FILE DESIGNATOR>::= <FILE IDENTIFIER> 


/ <SWITCH FILE IDENTIFIER> (<EXPRESSIOND) 


\ 
\\ 
\ 


THE <SORT DESIGNATOR> IS A COMMUNICATE WHICH REQUESTS’ THE 
TRANSFER OF RECORDS FROM THE INPUT FILE TO THE OUTPUT FILE 
ACCORDING TO THE SORT KEY TABLE. THE SORT INFORMATION TABLE 
INCLUDES CODES FOR SORT TYPE, HARDWARE AVAILABLE, AND OTHER 
OPTIONS. 


FOR FORMATTING SPECIFICATIONS OF THE SORT INFORMATION TABLE, 
REFER TO SORT DOCUMENTATION. 
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SORT . SWAP 


<SORT.SWAP DESIGNATOR> 


SORT.SWAP (<RECORD 1>,<RECORD @2>) 


<RECORD 1> <ADDRESS GENERATOR> 


<RECORD 2> <ADDRESS GENERATOR> 


WHILE THE <SORT SWAP DESIGNATOR> IS INTENDED TO BE USED BY THE 
SORT, ITS APPLICATION IS SUCH THAT IT MAY BE GENERALLY USEFUL. 


THIS DESIGNATOR ALLOWS THE USER TO "SWAP" OR EXCHANGE TWO 
RECORDS IN MEMORY WITHOUT ALLOCATING A THIRD AREA FOR’ STORING 
ONE OF THE RECORDS. 


SPECIFICALLY, THE RECORD POINTED TO BY <RECORD 1> IS EXCHANGED 
WITH THE RECORD POINTED TO BY <RECORD >. 


NOTE: THE INTERPRETER BEING USED MUST CONTAIN THE 
SORT.SWAP OPERATOR. 


INITIALIZE.VECTOR 


<INITIALIZE.VECTOR 
DESIGNATOR> ::= INITIALIZE.VECTOR (<TABLE ADDRESS>) 


<TABLE ADDRESS> ::= | <ADDRESS GENERATOR> 
FOR USE BY SORT ONLY. 


THE <TABLE ADDRESS> POINTS TO THE TABLE CONTAINING THE VECTOR 
ADDRESS, THE VECTOR LEVEL-1 ADDRESS, THE KEY TABLE ADDRESS, AND 
THE VECTOR LIMIT ADDRESS. 
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THREAD. VECTOR 


ELS OO ee ae ee ee ee ame 


<THREAD. VECTOR 


DESIGNATOR> ::= THREAD.VECTOR (<TABLE ADDRESS> ,<INDEX>)) 
<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 
<INDEX> ::= <EXPRESSION> 


FOR USE BY SORT ONLY. 


THE <TABLE ADDRESS> POINTS TO THE ‘TABLE CONTAINING THE 
INFORMATION DESCRIBED UNDER "INITIALIZE.VECTOR". THE <INDEX> 
PROVIDES THE OFFSET FROM THE BEGINNING OF THE VECTOR TO THE 
NEXT RECORD TO BE USED FOR COMPARISON. 


DISABLE. INTERRUPTS 


<DISABLE. INTERRUPTS = 
DESIGNATOR> ::= 7 DISABLE. INTERRUPTS 


FOR MCP USE ONLY. 


THE <DISABLE INTERRUPTS DESIGNATOR> SUPPRESSES ALL INTERRUPTS 
UNTIL AN li INTERRUPTS DESIGNATOR> IS ENCOUNTERED. 


NOTE THAT THIS CONSTRUCT EaNNe! BE EXECUTED BY NORMAL STATE 
PROGRAMS. 


ENABLE. INTERRUPTS 


<ENABLE. INTERRUPTS 
‘DESIGNATOR> ::= ENABLE. INTERRUPTS 


FOR MCP USE ONLY. 
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THE <ENABLE INTERRUPTS DESIGNATOR> CAUSES THE MCP TO RETURN TO 
THE NORMAL INTERRUPT-PROCESSING MODE AFTER’ THE <DISABLE 
INTERRUPTS DESIGNATOR> HAS CHANGED THAT MODE. SEE ABOVE 


NOTE THAT THIS CONSTRUCT CANNOT BE EXECUTED BY A NORMAL STATE 
PROGRAM. 


ACCESS FILE INFORMATION 


<ACCESS FILE INFORMATION 
DESIGNATOR> ::= ACCESS.FILE. INFORMATION (<FILE DESIGNATOR>, 
<RETURN TYPE>,<DESTINATION>) 


<FILE DESIGNATOR> ::= <FILE IDENTIFIER? 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<RETURN TYPE> BIT / CHARACTER 


<DESTINATION> <ADDRESS GENERATOR> 


THE <ACCESS FILE INFORMATION DESIGNATOR> RETURNS THE END-OF-FILE 
POINTER AND THE DEVICE TYPE FROM THE FIB OF THE SPECIFIED FILE 
TO THE SPECIFIED DESTINATION. 


THE INFORMATION MAY BE RETURNED AS EITHER BIT OR CHARACTER. THE 
FORMAT IS AS FOLLOWS: | 


O01 DESTINATION.FIELD, 


02 EOF.POINTER. BIT(24), %& CHARACTER(8) 
O02 DEVICE.TYPE BIT(6); & CHARACTER(2) 


TO ENSURE THAT THE FIB EXISTS, THIS COMMUNICATE SHOULD ONLY BE 
USED ON OPEN FILES. 


HARDWARE MONITOR 


<HARDWARE MONITOR _ 
DESIGNATOR> ::= HARDWARE .MONITOR (<EXPRESSION>) 


THE MONITOR MICRO-OPCODE WILL BE EXECUTED USING THE LOW-ORDER 8 
BITS OF THE <EXPRESSION> AS ITS OPERAND. ALSO SEE APPENDIX IV. | 
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SAVE STATE 


<SAVE STATE DESIGNATOR> ::= SAVE.STATE 


THE STATE OF THE INTERPRETER WILL BE STORED IN RS.M.MACHINE (SEE 
"B1700 MCP REFERENCE MANUAL"). EXECUTION WILL THEN CONTINUE. 


DEBLANK 
<DEBLANK DESIGNATORD: := DEBLANK (<FIRST CHARACTER) 
<FIRST CHARACTERD: :=  <IDENTIFIER> 


THE <FIRST CHARACTER> IS A SIMPLE IDENTIFIER WHICH DESCRIBES THE 
FIRST CHARACTER TO BE EXAMINED. DEBLANK REPEATLY INCREMENTS THE 
ADDRESS FIELD OF THE DESCRIPTOR FOR <FIRST CHARACTER> UNTIL 
<FIRST CHARACTER> DESCRIBES A NON-BLANK CHARACTER. . | 


FREEZE PROGRAM 


—_ <<< 2 «=n au cum cums cu cam une quEy ce eee que 


<FREEZE-PROGRAM 
DESIGNATOR): := FREEZE .PROGRAM 


EXECUTION OF THIS FUNCTION WILL PREVENT THE PROGRAM FROM BEING 
MOVED IN MEMORY OR FROM BEING ROLLED OUT OF MEMORY. 


THAW PROGRAM 


< THAW-PROGRAM ae ee 
DESIGNATOR): := THAW. PROGRAM 


EXECUTION OF THIS FUNCTION WILL ALLOW THE PROGRAM TO BE ROLLED 
OUT OF MEMORY. IT WILL NOT FORCE IT TO BE ROLLED OUT. 
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DUMP FOR ANALYSIS 


<DUMP-FOR- 
ANALYSIS DESIGNATOR>: := DUMP .FOR.ANALYSIS 


EXECUTION OF THIS FUNCTION WILL CAUSE A DUMPFILE TO BE CREATED 
AND EXECUTION TO COUTINUE. 


COMPILE CARD INFO 


<COMP ILE-CARD- 
INFO DESIGNATOR): := COMPILE .CARD. INFO 
(<CCI DESTINATION FIELD>) 


<CCI DESTINATION FIELD): := <ADDRESS GENERATOR> 


THIS FUNCTION IS INTENDED FOR USE BY THE COMPILERS ONLY. THE 
INFORMATION ON THE "COMPILE" CARD IS RETURNED IN THE FOLLOWING 
FORMAT: 


OBJECT NAME CHARACTER (30) 
EXECUTE TYPE (DECIMAL) CHARACTER (2) 


"Ol" EXECUTE 

"02" COMPILE AND GO 

"03" COMPILE FOR SYNTAX 

"04" COMPILE TO LIBRARY 

"05" COMPILE AND SAVE 

"06" GO PART OF COMPILE AND GO 
"O07" GO PART OF COMPILE AND SAVE 


COMPILER PACK IDENTIFIER CHARACTER (10) 
COMPILER INTERPRETER NAME CHARACTER (30) 
COMPILER INTRINSIC NAME CHARACTER (10) 
COMPILER PRIORITY (DECIMAL) CHARACTER (2) 
COMPILER CHARGE NUMBER (DECIMAL) | CHARACTER (6) 
COMPILER JOB NUMBER (DECIMAL) CHARACTER (6) 
COMPILER2S FIRST NAME CHARACTER (10) 
OBJECT PROGRAM2S FIRST NAME — CHARACTER (10) 
COMPILER MIX NUMBER (DECIMAL) CHARACTER (8) 
COMPILATION DATE BIT (36) 

BITS CONTENTS 

0-8 JULIAN DAY (BINARY) a 

9-15 LAST TWO DIGITS OF YEAR (BINARY - BASE 1900) 


— 16-35 TIME (BINARY - TENTHS OF SECONDS) 
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COMMUNICATE 


<COMMUNICATE DESIGNATOR>::= COMMUNICATE (<EXPRESSION>) 


THE <EXPRESSION> IS EXPECTED TO BE A VALID COMMUNICATE MESSAGE. 
THIS IS INTENDED ONLY FOR EXPERIMENTAL TESTING OF COMMUNICATES. 
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MODIFY INSTRUCTION 


<CLEAR STATEMENT > 
/ <BUMP STATEMENT> 
/ <DECREMENT STATEMENT) 


<MODIFY INSTRUCTION> 


<CLEAR STATEMENT> ::= CLEAR <ARRAY IDENTIFIER LIST> 


ARRAY IDENTIFIER LIST> ::= <ARRAY IDENTIFIER> 
/ <ARRAY IDENTIFIER, 
<ARRAY IDENTIFIER LIST> 


AS THE SYNTAX INDICATES, THE <CLEAR STATEMENT> MAY ONLY "CLEAR" 
ARRAYS. IF THE ARRAY HAS BEEN DECLARED BIT OR FIXED, ZEROES ARE 
MOVED TO EACH ELEMENT. IF IT WAS DECLARED AS CHARACTER, BLANKS 
ARE MOVED TO EACH ELEMENT. PAGED ARRAYS MAY NOT BE "CLEARED". 


<BUMP STATEMENT> ::= BUMP <ADDRESS VARIABLE><MODIFIER> 
<ADDRESS VARIABLE> ::= SEE “ADDRESS VARIABLES" 
<MODIFIER> ::= <EMPTY> 


/ BY <EXPRESSION> 


<DECREMENT STATEMENT> ::= DECREMENT <ADDRESS VARIABLE><MODIFIER> 


THE BUMP AND DECREMENT STATEMENTS PERFORM THE SAME FUNCTIONS AS 
THEIR  =COUNTERPARTS IN THE <EXPRESSION> (BUMPOR AND 
DECREMENTOR). SEE THOSE SECTIONS FOR SPECIFIC USAGE. SINCE 
THESE CONSTRUCTS EXIST AS STATEMENTS IN THEIR OWN RIGHTS, AND 
NOT MERELY AS PARTS OF THE <EXPRESSION>, THEY ARE INCLUDED 
HERE . 
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NULL STATEMENT - 


<NULL STATEMENT> ::= 


6 
9 


THE SEMI-COLON IS CONSIDERED TO BE A STATEMENT IN ITS OWN RIGHT. 
IT MAY BE USED IN ANY CONSTRUCT WHERE THE SYNTAX REQUIRES THAT 
AN <EXECUTABLE STATEMENT> BE PRESENT, BUT THE USER WISHES TO 
EXECUTE NOTHING. IT IS MOST COMMONLY USED IN THE <IF STATEMENT> 
AND THE <CASE STATEMENT>, BUT MAY ALSO BE FUNCTIONAL IN. THE 
READ, WRITE, AND SPACE STATEMENTS. REFER TO THE INDIVIDUAL 
DESCRIPTIONS FOR MORE SPECIFIC DETAILS. 


EXAMPLE : 
CASE <EXPRESSIOND; 
IF <EXPRESSION> THEN; 
ELSE <STATEMENT>; 


DO; 
<EXECUTABLE STATEMENT LIST> 
END ; | 

END CASE; 


NOTICE THAT THE ABOVE <CASE STATEMENT > CONTAINS THREE 
<EXECUTABLE STATEMENTS>: AN <IF STATEMENT>, A <NULL STATEMENT>, 
AND A <DO GROUP>. IF THE VALUE OF THE <EXPRESSION> FOLLOWING. 
"CASE" IS 1, THEN NOTHING IS EXECUTED. IN ADDITION, THE ";" 
FOLLOWING "THEN" IS A <NULL STATEMENT>. | 
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FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


<FILE ATTRIBUTE 
STATEMENT> ::= CHANGE <FILE DESIGNATOR> 
TO (<DYNAMIC FILE ATTRIBUTE LIST>) 


<FILE DESIGNATOR> ::= <FILE IDENTIFIER>D | 
/ “SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<DYNAMIC FILE 
ATTRIBUTE LIST> ::= <DYNAMIC FILE ATTRIBUTE> 
/ <DYNAMIC FILE ATTRIBUTE>, 
<DYNAMIC FILE ATTRIBUTE LIST> 


<DYNAMIC FILE 

ATTRIBUTE> ::= <DYNAMIC MULTI-FILE IDENTIFICATION PART> 
<DYNAMIC FILE IDENTIFICATION PART> 
<DYNAMIC PACK.ID PART> 
<DYNAMIC DEVICE PART> 
<DYNAMIC TRANSLATION PART> 
<DYNAMIC FILE PARITY PART> 
<DYNAMIC VARIABLE RECORD PART> 
<DYNAMIC LOCK PART> 
<DYNAMIC BUFFERS PART> 
<DYNAMIC SAVE FACTOR PART> 
<DYNAMIC RECORD SIZE PART> 
<DYNAMIC RECORDS-PER-BLOCK PART> 
<DYNAMIC REEL NUMBER PART> 
<DYNAMIC NUMBER-OF-AREAS PART> 
<DYNAMIC BLOCKS-PER-AREA PART> 
<DYNAMIC ALL-AREAS-AT-OPEN PART> 
<DYNAMIC AREA-BY-CYLINDER PART> 
<DYNAMIC EU.SPECIAL PART> 
<DYNAMIC EU. INCREMENTED PART> 

- <DYNAMIC USE. INPUT.BLOCKING 
DESIGNATOR PART> 
<DYNAMIC SORTER-STATION PART> 
<DYNAMIC MULTI-PACK PART> 
<DYNAMIC END-OF-PAGE PART> 
<DYNAMIC OPEN-OPTION PART> 
<DYNAMIC REMOTE-KEY PART> 
<DYNAMIC NUMBER-OF-STATIONS PART? 
<DYNAMIC QUEUE-FAMILY-SIZE PART> 
<DYNAMIC FILE TYPE PART> 
<DYNAMIC WORK FILE PART> 
<DYNAMIC LABEL TYPE PART> 


~ NNN NER R  S 


~ NR RRR RRR 


THE <FILE ATTRIBUTE STATEMENT> ALLOWS THE USER TO DYNAMICALLY 
CHANGE THE ATTRIBUTES OF HIS FILE DURING THE EXECUTION OF HIS 
PROGRAM. THIS STATEMENT MAY OCCUR AT ANY POINT IN THE PROGRAM, 
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BUT THE CHANGE WILL NOT BECOME EFFECTIVE UNTIL THE FILE IS 
OPENED. THAT IS, IF THE FILE IN QUESTION IS OPEN WHEN THE <FILE 
ATTRIBUTE STATEMENT> IS EXECUTED, THEN THE CHANGE WILL NOT 
OCCUR UNTIL THE FILE IS CLOSED AND RE-OPENED. 


~. EACH <DYNAMIC FILE ATTRIBUTE> SHOULD BE CONSISTENT WITH THE 


FORMAT AND RESTRICTIONS OF ITS COUNTERPART LISTED IN THE "FILE 
DECLARATIONS". EXCEPTIONS TO THIS ARE SPECIFICALLY STATED 
BELOW. 


IF A <DYNAMIC FILE ATTRIBUTED IS ‘OMITTED, THE ATTRIBUTE REMAINS 
AS IT WAS PREVIOUSLY SET. | 


IT SHOULD BE NOTED THAT THE FOLLOWING PROCESS- IS MANDATORY WHEN 
CHANGING THE ATTRIBUTES OF AN _ OPEN FILE WHICH IS TO BE 
RE-OPENED: 


1. CLOSE THE FILE WITH AN ATTRIBUTE WHICH CAUSES SPACE FOR THE 

 FIB TO BE RETURNED: I.E., "LOCK", "RELEASE", ETC. (CIF 
"CLOSE" IS USED WITHOUT ATTRIBUTES, THE FIB WILL NOT BE 
REBUILT FROM THE FPB, AND THE ATTRIBUTE WILL REMAIN 
UNCHANGED) . 


e. CHANGE THE DESIRED ATTRIBUTES. 


3. OPEN THE FILE. 
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<DYNAMIC MULTI-FILE 
IDENTIFICATION PART> ::= MULTI .FILE.ID << 
<DYNAMIC MULTI-FILE IDENTI+F ICATION> 


<DYNAMIC MULTI-FILE 


IDENTIFICATION>D ::= <EXPRESSION> 

<DYNAMIC FILE 

IDENTIFICATION PART> ::= FILE.ID@-<DYNAMIC FILE IDENTIFICATION> 
<DYNAMIC FILE 

IDENTIFICATIOND ::= <EXPRESS ION> 

<DYNAMIC PACK.ID PART> ::= PACK. ID 


<DYNAMIC PACK IDENTIFICATION> 


<DYNAMIC PACK 
IDENTIFICATIOND ::= <EXPRESSION> 


THE <EXPRESSION>S OF THESE FOUR ATTRIBUTES ARE EACH ASSUMED 10 
BE CHARACTER STRINGS. IF THEY ARE BITS, HOWEVER, THEY WILL BE 
CONVERTED TO CHARACTERS IN THE FOLLOWING MANNER: | 
1. THE BITS ARE LEFT JUSTIFIED. 
es TRAILING BLANKS ARE APPENDED. HOWEVER, IF THE 
BITS ARE NOT A MULTIPLE OF 8, THEN THE STRING 
WILL APPEAR TO BE INVALID CHARACTERS. 


EXAMPLE : | 
CHANGE F TO (FILE.ID* @FOE®) ; 


WILL RESULT IN THE <FILE IDENTIFICATION> 
BEING EQUAL TO: 


@F OE4O404040404 0404046 
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<DYNAMIC DEVICE PART> a 


<DYNAMIC DEVICE 
SPECIFIER> ::= 


THE LOW-ORDER 10 BITS OF THE 


FOLLOWS 
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DEVICE«-<DYNAMIC DEVICE SPECIFIER> 


<EXPRESSION> 


HARDWARE IS THE LOW-ORDER SIX): 


CARD 

MULTI .FUNCTION.CARD 
TAPE 

TAPE .9 

TAPE .7 

TAPE .PE 

TAPE .NRZ 

DISK 


DISK.PACK 
DISK.FILE 
_DISK.PACK. CENTURY 
DISK.PACK.CAELUS 
PRINTER 


PRINTER FORMS 
CARD.READER 

CARD .PUNCH 
CARD.PUNCH FORMS 
PUNCH 

PUNCH FORMS 
PUNCH. 96 

PUNCH.96 FORMS 
READER .PUNCH 
READER.PUNCH FORMS 
READER.PUNCH.PRINTER 


READER.PUNCH.PRINTER FORMS 


PUNCH .PRINTER 
PUNCH.PRINTER FORMS 
PAPER. TAPE .PUNCH 


PAPER.TAPE.PUNCH FORMS 


PAPER. TAPE.READER 
READER. 96 


HARDWARE 


~~ 


OAanwnw-— wMA Ww! Ow 


<EXPRESSION> 


0 


VARIANT 
= SERIAL 
1 = RANDOM 


(SAME AS DISK) 
(SAME AS DISK) 
(SAME AS DISK) 
(SAME AS DISK) 


+H u Wot WW oR 


OrANOOFWM— Oo 


(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 
(SAME 


BACKUP TAPE OR DISK 
BACKUP TAPE 

BACKUP DISK 

BACKUP TAPE OR DISK 
HARDWARE ONLY 
BACKUP TAPE ONLY 
BACKUP DISK ONLY 
BACKUP TAPE OR DISK 
PRINTER VARIANT 


PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 
PRINTER) 
PRINTER FORMS) 


MUST BE CODED AS 
(WHERE THE VARIANT IS THE HIGH ORDER 4 BITS, AND THE 


ONLY 
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SORTER .READER 10 
READER .SORTER 10 
SPO 22 
CASSETTE 30 
REMOTE 63 
QUEUE 62 
MF CU ly 
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<DYNAMIC TRANSLATION 
PART> ::= 


<DYNAMIC TRANSLATION 
SPECIFIER>D ::= 


THE LOW-ORDER 3 BITS OF 
TRANSLATION AS FOLLOWS: 


000 = EBCDIC 
001 = ASCII 
010 = BCL 


<DYNAMIC SORTER STATION 
PART> ::= 


<DYNAMIC SORTER | 
STATION SPECIFIER> ::= 


THE LOW-ORDER 3 BITS OF 
TRANSLATION AS FOLLOWS: 


001 
010 
111 


<DYNAMIC OPEN- 
OPTION PART): := 


<DYNAMIC OPEN- 
OPTION SPECIFIER>D: := 
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TRANSLATION « 
<DYNAMIC TRANSLATION SPECIFIER> 


<EXPRESSION> 


THE <EXPRESSION> DETERMINES THE 


SR.STATION « 
<DYNAMIC SORTER STATION SPECIFIER> 


<EXPRESSION> 


THE <EXPRESSION> DETERMINES THE 


FIRST STATION 
SECOND STATION 
BOTH STATIONS 


OPEN.OPTION <- 
<DYNAMIC OPEN.OPTION SPECIFIERD 


<EXPRESSION> 


THE LOW-ORDER !2 BITS OF THE EXPRESSION DETERMINE THE TYPE OF 
OPEN AS FOLLOWS (BITS ARE NUMBERED FROM LEFT TO RIGHT WITHIN 


THE 12): 
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—{ 


FUNCTION CIF 1) 
INPUT 

OUTPUT 

NEW 

PUNCH 

PRINT 

NO.REWIND, INTERPRET 
REVERSE, STACKERS 
LOCK 

LOCK . OUT 

CODE .FILE 


~O yNAaMNFfWM—oOe- 


-— 
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<DYNAMIC PARITY PART> 


<DYNAMIC PARITY 
SPECIFIER> ::= 


<DYNAMIC VARIABLE 
RECORD PART> ::= 
<DYNAMIC VARIABLE 
RECORD SPECIFIERD 
<DYNAMIC LOCK PART) 


<DYNAMIC LOCK 
SPECIFIER> ::= 


<DYNAMIC ALL-AREAS- 
AT-OPEN PART> ::= 
<DYNAMIC ALL-AREAS- 
AT-OPEN SPECIFIER> 
<DYNAMIC AREA-BY 
CYLINDER PART> ::= 


<DYNAMIC AREA-BY- 


CYLINDER SPECIFIER> :: 


<DYNAMIC USE.INPUT. 
BLOCKING PART> ::= 


<DYNAMIC USE. INPUT. 
BLOCKING SPECIFIER> 
<DYNAMIC END-OF - 
PAGE PART> ::= 
-<DYNAMIC END-OF- 
PAGE SPECIFIER> ::= 
<DYNAMIC MULTI- 
PACK PART>::= 


<DYNAMIC MULTI- 
PACK SPECIFIER> ::= 
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PARITY-<DYNAMIC PARITY SPECIFIER> 
<EXPRESSION> 


VARIABLE <- 
<DYNAMIC VARIABLE RECORD SPECIFIER> 


<EXPRESSION> 


LOCK <DYNAMIC LOCK SPECIFIERD> 
<EXPRESSION> 


ALL.AREAS.AT.OPEN + | 
<DYNAMIC ALL-AREAS-AT-OPEN SPECIFIER> 


<EXPRESSION 


AREA.BY.CYLINDER < 
<DYNAMIC AREA-BY-CYLINDER SPECIFIER> 


<EXPRESSION> 


USE. INPUT .BLOCKING+ 
<DYNAMIC USE.INPUT.BLOCKING SPECIFIERD> 


<EXPRESSION> 


END.OF .PAGE .ACTION + 
<DYNAMIC END-OF-PAGE SPECIFIERD> 


<EXPRESSION> 


MULTI .PACK < 
<DYNAMIC MULTI-PACK SPECIFIERD 


<EXPRESSION> 


<DYNAMIC REMOTE- 
KEY PART>::= 


<DYNAMIC REMOTE- 
KEY SPECIFIER>::= 
<DYNAMIC WORK 
FILE PART>::= 


<DYNAMIC WORK 
FILE SPECIFIER>::= 
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REMOTE-KEY <- 
<DYNAMIC REMOTE-KEY SPECIFIER>D 


<EXPRESSION> 


WORK .F ILE <- 
<DYNAMIC WORK FILE SPECIFIERD 


<EXPRESSIOND> 


ONLY THE LOW-ORDER BIT OF EACH OF THE ABOVE <EXPRESSION>S IS 
USED TO DETERMINE THE VALUE OF THE ATTRIBUTE. THE CODE 


DEFINITIONS ARE AS FOLLOWS: 
PARITY 
VARI ABLE 
LOCK 
ALL.AREAS.AT.OPEN 
AREA.BY.CYLINDER 


USE . INPUT .BLOCKING 

END.OF .PAGE.ACTION 
MULTI .PACK 

REMOTE KEY 


WORK .F ILE 


—-O- Or Or OK OO 


aa 2 


ad 


od 


ODD 

EVEN 

FIXED 

VARI ABLE 

NOT LOCKED 

LOCKED 

ALLOCATE AREAS AS NEEDED 

ALLOCATE ALL SPACE AT OPEN TIME 

PUT AREA ANYWHERE ON DISK 

ONE AREA PER CYLINDER AT BEGINNING © 
TAKE ATTRIBUTES FROM FILE DECLARATION 
TAKE ATTRIBUTES FROM DISK FILE HEADER 
SEE FILE ATTRIBUTES 

NO DETECTION OF END-OF-PAGE 

BRANCH TO <EOF PART> OF <WRITE 
STATEMENT> AT END OF PAGE ON 

PRINTER FILE | 
PLACE FILE ON MULTIPLE DISK PACKS 
PLACE FILE ON SINGLE DISK PACK 
REMOTE KEY IS PRESENT ON ALL READS 
AND WRITES TO THE FILE 

REMOTE KEY IS NOT PRESENT 

INSERT JOB NUMBER IN FILE IDENTIFIER 
LEAVE FILE IDENTIFIER ABOVE 
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<DYNAMIC EU.SPECIAL 
PART> ::= EU.SPECIAL + a 
<DYNAMIC EU.SPECIAL SPECIFIER> 
/ EU.SPECIAL< 
<DYNAMIC EU.SPECIAL SPECIFIER>, 
EU.DRIVE < | 
~<DYNAMIC EU.DRIVE SPECIFIER> 


<DYNAMIC EU.SPECIAL 
SPECIFIER> ::= <EXPRESSION> 


<DYNAMIC EU.DRIVE 
SPECIFIER> ::= <EXPRESSION) 


<DYNAMIC EU. 
INCREMENTED PART> ::= EU. INCREMENTED «— 
<DYNAMIC EU. INCREMENTED SPECIFIER> 
/ EV. INCREMENTED + 
<DYNAMIC EU.INCREMENTED SPECIFIER>D, 
EU. INCREMENT <— 
<DYNAMIC EU. INCREMENT SPECIFIERD 


<DYNAMIC EU. INCREMENTED 
SPECIFIER> ::= | <EXPRESSION> 


<DYNAMIC EU. a 
INCREMENT SPECIFIER> ::=. <EXPRESSIOND 


THE LOW-ORDER BIT OF THE EU.SPECIAL AND. EU. INCREMENTED 
SPECIFIERS SERVES TO INDICATE WHETHER OR NOT THE ATTRIBUTE I[S 
SET (O=OFF, 1=O0ON). IF THE ATTRIBUTE IS OFF, THEN INCLUSION OF 
THE EU.DRIVE AND EU.INCREMENT SPECIFIERS IS UNNECESSARY. 


IF THESE ATTRIBUTES ARE SET ON, THEN THE DRIVE AND INCREMENT 
PARTS SHOULD BE INCLUDED, AND SHOULD CONF ORM TO THE 
SPECIFICATIONS IN THE "FILE DECLARATIONS". IF OMITTED, THE 
<DYNAMIC EU.DRIVE SPECIFIER> IS NOT CHANGED. IF THE <DYNAMIC 
EU.INCREMENT SPECIFIER> HAS NEVER BEEN SET (1.E., IT %I5. 0), 
THEN IT IS SET TO ONE; OTHERWISE, IT TOO REMAINS UNCHANGED. — 


<DYNAMIC BUFFERS PART> 


<DYNAMIC NUMBER 
OF BUFFERS> ::= 


<DYNAMIC SAVE 
FACTOR PART>D ::= 


<DYNAMIC SAVE FACTOR> 


<DYNAMIC RECORD 
SIZE PART> ::= 


<DYANMIC RECORD SIZE> 
<DYNAMIC RECORDS- 
PER-BLOCK PART> ::= 
<DYNAMIC RECORDS- 


PER-BLOCK> :;:= 


<DYNAMIC REEL 
NUMBER PART> ::= 


<DYNAMIC REEL NUMBER> 
<DYNAMIC NUMBER-OF - 
AREAS PART) ::= 
<DYNAMIC NUMBER- 
OF-AREAS> ::= 
<DYNAMIC BLOCKS-PER- 
AREA PART> ::= 
<DYNAMIC BLOCKS-PER 
AREA>D ::= 

<DYNAMIC QUEVUE-FAMILY- 
SIZE PART>::= 
<DYNAMIC QUEUE- 
FAMILY-SIZE>::= 


<DYNAMIC NUMBER-OF - 
STATIONS PART>::= 
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BUFFERS«<DYNAMIC NUMBER OF BUFFERS> 


<EXPRESSION> 


SAVE*<DYNAMIC SAVE FACTOR> 


<EXPRESSION> 


RECORD .SIZE#-<DYNAMIC RECORD SIZE> 


<EXPRESSION> 


RECORDS .PER.BLOCK + 
<DYNAMIC RECORDS-PER-BLOCK > 


<EXPRESSION> 


REEL*-<DYNAMIC REEL NUMBER> 


<EXPRESSIOND 


NUMBER. OF . AREAS «- 
<DYNAMIC NUMBER-OF -AREAS> 


<EXPRESSION>D 


BLOCKS.PER. AREA + 
<DYNAMIC BLOCKS-PER-AREA> 


<EXPRESSION> 


QUEUE-FAMILY-SIZE <- 
<DYNAMIC QUEUVE-FAMILY-SIZE> 


<EXPRESSION> 


NUMBER-OF -STAT IONS@— 


<DYNAMIC NUMBER-OF-STATIONS SPECIF IER> 
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<DYNAMIC NUMBER-OF - 
STATIONS SPECIFIER>: := <EXPRESSION> 


<DYNAMIC FILE | mt 
TYPE PART>: := FILE. TYPE + 
<DYNAMIC FILE TYPE, SPECIFIER> 


<DYNAMIC FILE Sg ge 
TYPE SPECIFIER>::=  <EXPRESSION> | 


THE VALUE OF THE EXPRESSION DETERMINES THE FILE TYPE: 


VALUE TYPE 
0 DATA 
7 INTERPRETER 
8 CODE 
9 DATA 


<DYNAMIC LABEL 
TYPE PART>::= LABEL TYPE= | 
<DYNAMIC LABEL TYPE SPECIFIER> 


<DYNAMIC LABEL : 
TYPE SPECIFIER>D: := <EXPRESSI OND 


THE VALUE OF THE EXPRESSION DETERMINES THE LABEL TYPE. 


VALUE TYPE 
0 BURROUGHS STANDARD LABEL 
| UNLABELED 


THE ABOVE <EXPRESSION>S RETURN A BIT STRING WHICH SHOULD 
CONSISTENT WITH THE FORMATS AND RESTRICTIONS LISTED IN 
"FILE DECLARATIONS". 
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BE 
THE 
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STOP STATEMENT 


<STOP STATEMENT) ::= STOP 
/ STOP <EXPRESSION> 


THE <STOP STATEMENT> IS A COMMUNICATE TO THE MCP THAT THE 
PROGRAM HAS FINISHED. IT SHOULD NOT BE CONFUSED WITH "FINI" 
WHICH IS THE FINAL STATEMENT IN THE PROGRAM. 


"STOP <EXPRESSION>" IS INTENDED FOR USE BY THE COMPILERS ONLY. 


THE <EXPRESSION> COMMUNICATES THE NUMBER OF SYNTAX ERRORS TO 
THE MCP. | 
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ZIP STATEMENT 


<ZIP STATEMENT> ::= | ZIP <EXPRESSION> 


THE <ZIP STATEMENT> ALLOWS THE USER TO PASS CONTROL INSTRUCTIONS 
TO THE MCP. THE <EXPRESSION> SHOULD GENERATE A CHARACTER STRING 

WHOSE VALUE IS A VALID MCP CONTROL STATEMENT AS DEFINED IN THE 

"B1700 SOFTWARE OPERATIONAL GUIDE". 
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SEARCH STATEMENT 


<SEARCH STATEMENT > <SEARCH PART> | 
/ <SEARCH PART>; <FILE MISSING PART> 
<SEARCH PART>; <FILE LOCKED PART> 
/ <SEARCH PART>; <FILE MISSING PART> 


<FILE LOCKED PART> 


™~ 


<SEARCH PART> ::= SEARCH.DIRECTORY (<SEARCH OBJECT>, 
<SEARCH RESULT>,<SEARCH RESULT MODE >) 


<SEARCH OBJECT > 


<ADDRESS GENERATOR> 


<SEARCH RESULT> 


<ADDRESS GENERATOR> 


<SEARCH RESULT MODE> ::= BIT / CHARACTER 


<FILE MISSING PART> ::= ON FILE.MISSING <EXECUTABLE STATEMENT > 
<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT > 


THE <SEARCH STATEMENT> ALLOWS THE USER TO EXTRACT CERTAIN 
INFORMATION CONTAINED IN THE DISK FILE HEADER SPECIFIED BY THE 
<SEARCH OBJECT>. | 


THE <SEARCH OBJECT> IS EXPECTED TO BE 30 CHARACTERS IN LENGTH. 
WHERE THE FIRST 10 CHARACTERS ARE THE PACK IDENTIFICATION, THE 

SECOND 10 CHARACTERS ARE THE MULTI-FILE IDENTIFICATION, AND THE 

SRD 10 ARE THE FILE IDENTIFICATION. FILE NAMES LESS THAN 10 

CHARACTERS MUST BE LEFT-JUSTIFIED IN THEIR RESPECTIVE FIELDS 

WITH TRAILING BLANKS APPENDED. IF ONLY ONE FILE NAME EXISTS, 

THAT NAME SHOULD BE LEFT-JUSTIFIED IN THE MULTI-FILE 

IDENTIFICATION FIELD, AND THE FILE IDENTIFICATION SHOULD BE 

BLANK. | 


THE <SEARCH RESULT> SPECIFIES THE RECEIVING FIELD AND SHOULD BE 
360 BITS LONG IF BIT MODE IS SPECIFIED, OR 59 BYTES IF 
CHARACTER MODE IS SPECIFIED. : 


THE INFORMATION IS RETURNED IN THE FOLLOWING FORMAT: 
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Ol FILE.HEADER.FORMAT, 


NOTE: THIS FORMAT MAY BE SUBJECT TO CHANGE. 


OPEN. TYPE 
NO.USERS 


RECORD.SIZE 


RECORDS .PER. BLOCK 
EOF .POINTER 
SEGMENTS.PER. AREA 
USER. OPEN. OUTPUT 
FILE.TYPE 
PERMANENT . FLAG 


BLOCKS .PER. AREA 


AREAS .REQUESTED 
AREA .COUNTER 
SAVE .FACTOR 
CREATION. DATE 
LAST. ACCESS. DATE 


(24), 
(eH) 5. 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 
(24), 


VE HE HE BE DE SE SE FE FE HE FE FE DE FE EL 


CHARACTER 


CHARACTER 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
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(1) 
(2) 
(4) 
(4) 
(8) 
(8) 
(1) 
(2) 
(2) 
(6) 
(3) 
(3) 
(3) 
(6) 
(6) 


THE <FILE MISSING PART> AND <FILE LOCKED PART> ALLOW THE USER TO 


SPECIFY THE COURS 


ARISE. 


E OF ACTION SHOULD EITHER OF THESE CONDITIONS 
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ACCESS FILE HEADER STATEMENT 


<ACCESS FILE HEADER re | | 
STATEMENT> ::= | ~ ACCESS FILE HEADER PART); 
/ SACCESS FILE HEADER PART); 
<FILE MISSING PART> 
/ SACCESS FILE HEADER PART); 
- FILE LOCKED PART> 
/ <ACCESS FILE HEADER PART); 
<FILE MISSING PART> 
<FILE LOCKED PART > 


<ACCESS FILE HEADER 
PART> ::= READ.FILE.HEADER | 
(<FILE NAME>, <DESTINATION FIELD>) 
/ WRITE.FILE.HEADER 
(<FILE NAME>, <SOURCE FIELD>) 


<FILE NAME> ::= <ADDRESS GENERATOR> 


<DESTINATION FIELD> ::=  ~ <ADDRESS GENERATOR? 

<SOURCE FIELD> ::= - <ADDRESS GENERATOR? 

<FILE MISSING PART> ::= ON FILE.MISSING <EXECUTABLE STATEMENT> 
{FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT> 


THE <ACCESS FILE HEADER STATEMENT> IS INTENDED FOR USE IN 
SYSTEMS PROGRAMS ONLY. IT ENABLES THE PROGRAMMER TO EITHER READ 
OR WRITE A FILE HEADER. 


THE <FILE NAME> IS EXPECTED TO BE A 30-CHARACTER FIELD WHERE THE 
FIRST 10 CHARACTERS ARE THE PACK.ID, THE SECOND 10 CHARACTERS 

ARE THE MULTI-FILE IDENTIFICATION AND THE THIRD 10, THE FILE 

IDENTIFICATION. FILE NAMES LESS THAN 10 CHARACTERS ARE 

LEFT-JUSTIFIED IN THEIR RESPECTIVE FIELDS. IF ONLY ONE FILE 

NAME EXISTS, IT IS LEFT-JUSTIFIED IN THE MULTI-FILE 

IDENTIFICATION, AND THE FILE IDENTIFICATION SHOULD BE SET TO 

BLANKS. | 


THE <SOURCE FIELD> OR DESTINATION FIiELD> SPECIFIES, 
RESPECTIVELY, THE SENDING OR RECEIVING FIELD, AND IS EXPECTED 
TO BE 576 TO 4320 BITS IN LENGTH DEPENDING UPON THE NUMBER OF 
AREAS ALLOCATED. INFORMATION IS PASSED IN THE FILE HEADER 
FORMAT. REFER TO THE "Bi1700 MCP MANUAL" FOR SPECIFICS. 
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THE <FILE MISSING PART> AND <FILE LOCKED PART> ENABLE THE 
PROGRAMMER TO SPECIFY THE COURSE OF ACTION SHOULD EITHER OF 
THESE CONDITIONS ARISE. 


NOTE THAT EXTREME CAUTION IS ADVISED WHEN WRITING A FILE HEADER. 
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SEND STATEMENT 


<SEND STATEMENT> ::= <SEND PART); 

/ <SEND PART); <QUEUE FULL PART> 
<SEND PART>; <INVALID REQUEST PART> 
/ <SEND PART>; <QUEVE FULL PART> 

<INVALID REQUEST PART> 


~ 


<SEND PART> ::= SEND <MESSAGE SOURCE> TO <QUEUE> 
<MESSAGE SOURCE> ::= <ADDRESS GENERATOR> 

<QUEUE> ::= <EXPRESSION> 

<QUEUE FULL PART> ::= ON Q@.FULL <EXECUTABLE STATEMENTD 


<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT > 


THE <SEND STATEMENT> ALLOWS THE USER TO COMMUNICATE WITH OTHER 
PROGRAMS BY PLACING A MESSAGE IN A SPECIFIED QUEVE WHICH MAY BE 
ACCESSED BY THE OTHER PROGRAMS WITH THE <RECEIVE STATEMENT>. 


THE <MESSAGE SOURCE> SPECIFIES THE MESSAGE TO BE PLACED IN’ THE 
QUEUE. IT IS ENTERED AT THE END OF THE QUEVE AND MAY BE A 
MAXIMUM OF 65535 BITS IN LENGTH. 


THE <QUEUE> SPECIFIES THE GO-CHARACTER NAME OF THE QUEUE, THE 
NAME THAT MUST BE USED BY ALL PROGRAMS ACCESSING THAT QUEUE. 
THE FORMAT OF THE QUEUE NAME IS THE SAME AS A FILE HEADER. THAT 
IS, THE FIRST 10 CHARACTERS IS THE QUEUE FAMILY NAME, AND’ THE 
SECOND 10 IS THE SUB-QUEVE NAME. NAMES LESS THAN 10 CHARACTERS 
ARE LEFT JUSTIFIED IN IN THEIR RESPECTIVE FIELDS. IF ONLY ONE 
NAME EXISTS, IT IS LEFT JUSTIFIED IN THE FAMILY QUEUE FIELD, 
AND SUB-QUEVE IS SET TO BLANKS. 


THE <QUEUE FULL PART> WILL BE EXECUTED IF THE MAXIMUM QUEUE SIZE 
HAS BEEN REACHED. IF UNSPECIFIED, A QUEUE MAY CONTAIN 1023 
MESSAGES. THE MAXIMUM NUMBER OF QUEUE MESSAGES MAY BE SET TO 
ANY AMOUNT LESS THAN 1023 WITH THE <QUEUE SIZE DESIGNATOR>. THE 
CURRENT POPULATION OF A QUEUE MAY BE OBTAINED WITH THE <QUEUE 
POPULATION DESIGNATOR>. FOK 9 FURTHER DETAILS, SEE THE 
APPROPRIATE SECTIONS. 


THE <INVALID REQUEST PART> WILL BE EXECUTED IF THE <SEND PART> 
CANNOT, FOR SOME REASON, BE RECOGNIZED BY THE MCP. 


(Cc) 1973, 1974 Burroughs - DO NOT REPRODUCE 


NOTE: 


SINCE MESSAGES ARE SENT TO THE END OF _ THE 
QUEUE AND RECEIVED FROM THE TOP, IT IS THE 
PROGRAMMER-S RESPONSIBILITY TO ENSURE THAT 
MESSAGES ARE RECEIVED IN THE CORRECT ORDER. 
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RECEIVE STATEMENT 


RECEIVE STATEMENT> ::= <RECEIVE PART); 

/ RECEIVE PART>; <QUEUE EMPTY PART> 
<RECEIVE PART>; <INVALID REQUEST PART> 
/ “RECEIVE PART>; <QUEUE EMPTY PART> 

<INVALID REQUEST PART> 


~ 


RECEIVE PART> ::= RECEIVE <MESSAGE DESTINATIOND 
FROM <QUEUE > 


<MESSAGE DESTINATION> <ADDRESS GENERATOR> 


<QUEUE> ::= <EXPRESSION> 
<QUEUE EMPTY PART> ::= ON Q.EMPTY <EXECUTABLE STATEMENT > 
<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT > 


THE <RECEIVE STATEMENT> ALLOWS THE USER TO ACCEPT MESSAGES FROM 
OTHER PROGRAMS BY RECEIVING THE FIRST MESSAGE FROM’ THE 
SPECIFIED QUEUE. 


THE <MESSAGE DESTINATION> SPECIFIES THE FIELD RECEIVING THE 
MESSAGE. <QUEVE> SPECIFIES THE QUEUE NAME AND SHOULD CONFORM TO 
THE SPECIFICATIONS DESCRIBED UNDER "SEND STATEMENT". IF ONLY 
ONE NAME IS SPECIFIED, IT WILL BE TAKEN AS THE FAMILY NAME AND 
THE EARLIEST MESSAGE IN ANY QUEVE HAVING THAT FAMILY NAME WILL 
BE SELECTED. OTHERWISE THE FIRST MESSAGE IN THE SPECIFIED QUEUE 
WILL BE SELECTED. 


THE <QUEUE EMPTY PART> IS EXECUTED WHEN THE DESIGNATED QUEUE HAS 
NO MESSAGES. IF THE DESIGNATED QUEVE IS NON-EXISTENT, THE QUEUE 
IS CREATED, AND <QUEUVE EMPTY PART> IS EXECUTED. 


THE <INVALID REQUEST PART> IS EXECUTED WHEN THE <RECEIVE PART> 
CANNOT, FOR SOME REASON, BE RECOGNIZED OR EXECUTED BY THE MCP. 


NOTE: IT IS THE PROGRAMMER-S RESPONSIBILITY TO 
ENSURE THAT HE RECEIVES THE CORRECT MESSAGE. 
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ARRAY PAGE TYPE STATEMENT 


<ARRAY PAGE TYPE . 
STATEMENT> ::= <ARRAY PAGE TYPE DESIGNATOR> 
(<PAGED ARRAY NAME> ,<PAGE NUMBER>) 


<ARRAY PAGE TYPE | 
DESIGNATOR> ::= MAKE .READ. ONLY 
/ MAKE.READ.WRITE 


<PAGED ARRAY NAME> <IDENTIFIERD 


<PAGE NUMBER> ::= <EXPRESSION>D 


THE <ARRAY PAGE TYPE STATEMENT> ALLOWS THE USER TO MARK CERTAIN 
PAGED ARRAY PAGES AS READ-ONLY. WHEN THIS IS DONE, A PAGE WILL 
NOT BE WRITTEN OUT TO DISK EVERY TIME IT IS OVERLAYED. 


MAKE .READ.WRITE ALLOWS THE USER TO CHANGE INFORMATION ON A PAGED 
ARRAY, AND TO HAVE THAT ARRAY WRITTEN ON DISK WHEN IT IS 

OVERLAYED. IT IS ONLY NECESSARY TO SPECIFY MAKE.READ.WRITE 

AFTER A MAKE.READ.ONLY SPECIFICATION. 


IT IS THE PROGRAMMER-S RESPONSIBILITY TO ENSURE THAT THE 
INFORMATION IN A PAGE MARKED READ-ONLY IS NOT CHANGED. IN 
ADDITION, THE USER IS RESPONSIBLE FOR GUARANTEEING CORRECT PAGE 
NUMBER SPECIFICATIONS. THERE IS NO SYNTAX CHECK FOR EITHER. 


EXAMPLE : 


DECLARE PAGED (3e) P (1024) BIT(30), Tl] BIT(24); 
Tl«1; | 
DO FOREVER; 
MAKE .READ.ONLY (P, BUMP T1); 
IF Tl = 15 THEN UNDO; 
END; 


MAKE .READ.WRITE (P, 0); 
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COROUTINE STATEMENT 


<COROUTINE STATEMENT): := <COROUTINE ENTRY STATEMENT > 
/ <COROUTINE EXIT STATEMENT > 


<COROUT INE 
ENTRY STATEMENT): : 


ENTER.COROUT INE 
(<COROUTINE TABLE SPECIFIERD) 


<COROUT INE 

TABLE SPECIFIER>: := <ADDRESS GENERATOR> 
<COROUT INE 

EXIT STATEMENT): := EXIT .COROUTINE 


(<COROUTINE TABLE SPECIFIER>) 


THE <COROUTINE TABLE SPECIFIER> ASSOCIATED WITH ENTER.COROUT INE 
AND EXIT.COROUTINE IS ASSUMED TO DESCRIBE A TABLE WITH THE 
FOLLOWING FORMAT: 


DECLARE 
O1 TABLE 
,02 NUMBER.OF .ENTRIES BIT(4) 
,02 ENTRY.ADDRESS BIT (3e) 
,02 PPS.COPY(16) BIT(3e) 


A. ENTER.COROUTINE: THE <COROUTINE TABLE SPECIFIER> IS ASSUMED 
TO HAVE THE FORMAT DESCRIBED ABOVE. THE CURRENT CODE 
ADDRESS. IS PUSHED ON TO THE PROGRAM POINTER STACK. THE 
NUMBER OF ELEMENTS OF PPS.COPY THAT IS SPECIFIED BY 
NUMBER.OF .ENTRIES IS PUSHED ONTO THE PROGRAM POINTER STACK. 
THE ADDRESS OF THE NEXT INSTRUCTION IS _ TAKEN FROM 
ENTRY.ADDRESS. 


B. EXIT.COROUTINE: THE <COROUTINE TABLE SPECIFIER> IS ASSUMED 
TO DESCRIBE A TABLE OF THE FORMAT GIVEN ABOVE. THE CURRENT 
NESTING LEVEL IS STORED IN NUMBER.OF .ENTRIES. THE CURRENT 
CODE ADDRESS IS STORED IN ENTRY.ADDRESS. THE NUMBER (AS 
SPECIFIED BY NUMBER.OF.ENTRIES) OF ENTRIES ON THE TOP OF 
THE PROGRAM POINTER STACK I[S COPIED TO PPS.COPY(0) THROUGH 
PPS .COPY (NUMBER.OF .ENTRIES-1). IF NUMBER.OF.ENTRIES IS O. 
THEN NOTHING IS COPIED. AN "UNDO" IS PERFORMED, USING 
NUMBER.OF .ENTRIES AS THE NUMBER OF ENTRIES ON TOP OF THE 
PROGRAM POINTER STACK. 
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NOTE: UPON FIRST EXECUTION OF ENTER.COROUTINE, THE TABLE MUST 
ALREADY BE SET UP. THE EASIEST WAY TO ACCOMPLISH THIS IS TO 
MAKE THE FIRST EXECUTABLE STATEMENT IN THE COROUTINE TO BE 
ENTERED AN EXIT.COROUTINE STATEMENT. THE FIRST ENTRANCE a THE 
COROUTINE IS ae ACCOMPLISHED BY A CALL STATEMENT. 


‘ee aa IS NOT A GENERAL COROUTINE MECHANISM--I.E., IT IS NOT 
SYMMETRIC. .THE ROUTINE EXECUTING THE ENTER.COROUTINE IS A 


"MASTER" TO THE "SLAVE" ROUTINE WHICH CONTAINS = THE 
EXIT. COROUTINE-S. a | 


NOTE: EXIT.COROUTINE CAN ONLY APPEAR WITHIN PROCEDURES WITH NO 
PARAMETERS AND NO LOCAL DATA; I.E., THOSE PROCEDURES WHICH DO 
NOT CHANGE THE CONTROL STACK. 
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WAIT STATEMENT 


<WAIT STATEMENT): := WAIT (<NUMBER OF TENTHS OF SECONDS>) 
/ WAIT (<NUMBER OF TENTHS OF SECONDS>, 
DC.10.COMPLETE ) 
/ WAIT (,D0C.10.COMPLETE) 


THE WAIT STATEMENT CAUSES THE PROGRAM-S EXECUTION TO BE 
SUSPENDED UNTIL SOME EVENT OCCURS. THE FIRST FORM WAITS FOR THE 
SPECIFIED NUMBER OF TENTHS OF SECONDS TO PASS. THE SECOND FORM 
WAITS FOR THE NUMBER OF TENTHS OF SECONDS TO PASS OR UNTIL AN 
1/0 OPERATION COMPLETES ON A DATA-COMMUNICATIONS FILE, 
WHICHEVER OCCURS FIRST. THE THIRD FORM WAITS UNTIL AN 1/0 
OPERATION COMPLETES ON A DATA-COMMUNICATIONS FILE. 
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APPENDIX I: SYNTAX OF THE SDL LANGUAGE 


<PROGRAM> ::= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
<EXECUTABLE STATEMENT LIST> 
FINI 


<DECLARATION STATEMENT 
LIST> ::= | <EMPTY> 
/ <DECLARATION STATEMENT > 
<DECLARATION STATEMENT LIST> 


<DECLARATION STATEMENT> ::= <DECLARE STATEMENT>; 
/ <FILE DECLARATION STATEMENT >; 
/ <SWITCH FILE DECLARATION 
STATEMENT >; 
<DEF INE STATEMENT >; 
<FORWARD DECLARATION> 
<USE STATEMENT > ; 
<SEGMENT STATEMENT > 
<DECLARATION STATEMENT > 


~ NS 


<SEGMENT STATEMENT > SEGMENT (<SEGMENT IDENTIFIER)) ; 
/ SEGMENT.PAGE (<SEGMENT IDENTIFIERD 


OF <PAGE IDENTIFIER)D) ; 


<SEGMENT IDENTIFIER>D ::= CIDENTIFIERD 


<PAGE IDENTIFIERD < IDENTIFIER? 


<DECLARE STATEMENT > 235 DECLARE <DECLARE ELEMENT > 
/ <DECLARE STATEMENT>, <DECLARE ELEMENT > 


<DECLARED PART> 
<TYPE PART > 

/ <STRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART > 
<STRUCTURE TYPE PART > 

/ DYNAMIC <SIMPLE IDENTIFIER> 
<DYNAMIC TYPE PART> 

/ PAGED <ELEMENTS-PER-PAGE PART > 
<ARRAY IDENTIFIER> <ARRAY BOUND> 
<TYPE PART > 


<DECLARE ELEMENT > 


<DECLARED PART> ::= <COMPLEX IDENTIFIER>D 
/ (<COMPLEX IDENTIFIER LIST>) 
/ <COMPLEX IDENTIFIER> REMAPS 
<REMAP IDENTIFIERD 


<COMPLEX IDENTIFIER 
LIST> ::5 | <COMPLEX IDENTIFIER> 
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<COMPLEX IDENTIFIER> 


<SIMPLE IDENTIFIER>D ::= 


<ARRAY IDENTIFIER> 


<ARRAY BOUND> 23 


<REMAP IDENTIFIER>D 


<TYPE PART> ::= 


<FIELD SIZE> ::= 


<STRUCTURE LEVEL 
NUMBER> ::= 


<STRUCTURE DECLARED 
PART> ::= 


<DUMMY PART> ::= 
<ARRAY BOUND PART> ::= 
<STRUCTURE TYPE PART> 


<DYNAMIC TYPE PART>D ::= 


<DYNAMIC FIELD SIZE) :: 


<ELEMENTS-PER-PAGE 
PART> ::= 


<FILE DECLARATION — 
STATEMENT> ::= 


<FILE DECLARE 
ELEMENT LIST> ::= 


i722 
<COMPLEX IDENTIFIERD, 
<COMPLEX IDENTIFIER LIST> 


<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIER> <ARRAY BOUND> 


<IDENTIFIER> 


<IDENTIFIER> 


(<NUMBER> ) 


BASE 
<SIMPLE IDENTIFIER>D 
<ARRAY IDENTIFIERD 


FIXED 
CHARACTER <FIELD SIZE> 
BIT <FIELD SIZE> 


(<NUMBER> ) 


~ <NUMBER> 


<DECLARED PART > 

FILLER | 
<DUMMY PART> REMAPS <REMAP IDENTIFIER>D 
DUMMY <ARRAY BOUND PART > 


<EMPTY> 
<ARRAY BOUND> 


<EMPTY> 
<TYPE PART> 


BIT <DYNAMIC FIELD SIZE> 
CHARACTER <DYNAMIC FIELD SIZE> 


(<EXPRESSIOND) 


(<NUMBER>) 


FILE <FILE DECLARE ELEMENT LIST> 


<FILE DECLARE ELEMENT> — 
<FILE DECLARE ELEMENT>, 
<FILE DECLARE ELEMENT LIST> 
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<FILE DECLARE ELEMENT> ::= <FILE IDENTIFIER><FILE ATTRIBUTE PART> 
<FILE IDENTIFIER> ::= <IDENTIFIER> 


<FILE ATTRIBUTE PART> 


<EMPTY> 
/ (<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTE> 
/ <FILE ATTRIBUTED, 
<FILE ATTRIBUTE LIST> 


<FILE ATTRIBUTED ::= <LABEL PART > 

<DEVICE PART> 

<MODE PART> 

<BUFFERS PART > 

<VARTABLE RECORD PART > 
<LOCK PART> 

<SAVE FACTOR PART > 
<RECORD SPECIFICATION PART> 
<REEL NUMBER PART > 

<DISK FILE DESCRIPTION PART> 
<OPEN OPTION PART> 
<PACK-ID PART> 
<ALL.AREAS.AT.OPEN PART > 
<AREA.BY.CYLINDER PART> 
<EU.ASSIGNMENT PART > 
<MULTI.PACK PART > 

<USE INPUT BLOCKING PART > 
<SORTER STATION PART> 
<END.OF .PAGE PART > 
<REMOTE.KEY PART > 
<NUMBER.OF .STATIONS PART > 
QUEUE .FAMILY.SIZE PART> 
<FILE TYPE PART> 

<WORK FILE PART> 

<LABEL TYPE PART> 


™~w “NER RRR RRR RR RRR RRR RRS 


<LABEL PART> ::= LABEL = <FILE IDENTIFICATION PART> 


<FILE IDENTIFICATION 
PART> ::= <MULTI-FILE IDENTIFICATION> 
/ <MULTI-FILE IDENTIFICATION> <SLASH> 
<FILE IDENTIFICATIOND>D 


<MULTI-FILE 
IDENTIFICATION>D ::= <CHARACTER STRING> 


<FILE IDENTIFICATION> ::= <CHARACTER STRING> XDEFINED ABOVE 
<DEVICE PART> ::= DEVICE = <DEVICE SPECIFIER> 
<DEVICE SPECIFIER> ::= | CARD | 
a © fT NPE 
/ TAPE .PE 
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TAPE .7 

TAPE .9 

TAPE .NRZ 

MULTI .FUNCTION. CARD 

DISK <ACCESS MODE > 

DISK.PACK <ACCESS MODE > 
DISK.FILE <ACCESS MODE > 
DISK.PACK.CENTURY <ACCESS MODE > 
DISK.PACK.CAELUS <ACCESS MODE > 
PRINTER <DEVICE OPTION> 

PUNCH <DEVICE OPTION> 
PAPER.TAPE.PUNCH <DEVICE OPTION> 
PAPER. TAPE .READER 
PUNCH..PRINTER <DEVICE OPTIOND> 
READER.PUNCH <DEVICE OPTION> 
READER.PUNCH.PRINTER 

<DEVICE OPTION> 

READER .96 | 

PUNCH.96 <DEVICE OPTIOND>D 

SPO 

CARD.READER 

CARD.PUNCH <DEVICE OPTION> 

MF CU 

SORTER.READER 

READER.SORTER 

CASSETTE 

REMOTE 

QUEUE 


~ NR RRR RRR RR RRR SRR 


MN RR RRR RRR RRR 


<ACCESS MODE> ::= <EMPTY> / SERIAL / RANDOM 


<EMPTY> | | 
/ <BACKUP OPTION> 
<SPECTAL FORMS OPTION> 
/ <SPECIAL FORMS OPTION> <BACKUP OPTION> 


<DEVICE OPTION> 


~~ 


<BACKUP SPECIFIER>D 


<BACKUP OPTION> :: 
| 7 OR <BACKUP SPECIFIER> 


<BACKUP SPECIFIER> ::= BACKUP / BACKUP TAPE / BACKUP DISK 
<SPECIAL FORMS OPTION> ::= FORMS 

<MODE PART> ::= MODE = <MODE SPECIFIER> 

<MODE SPECIFIER> ::= <FILE PARITY PART> 


/ <TRANSLATION PART> 
/ <FILE PARITY PART> <TRANSLATION PART > 


<FILE PARITY PART> ::= ODD / EVEN | 
<TRANSLATION PART): := - EBCDIC / ASCII / BCL / BINARY 


<BUFFERS PART> ::= BUFFERS = <NUMBER OF BUFFERS? 


<NUMBER OF BUFFERS> ::= 
<VARIABLE RECORD PART) ::= 
<LOCK PART> ::= 

<SAVE FACTOR PART> ::= 
<SAVE FACTOR>D ::= 


<RECORD SPECIFICATION 
PART> ::= 


<RECORD SIZE SPECIFIER> ::= 


<PHYSICAL RECORD SIZE> ::= 
<LOGICAL RECORD SIZE> ::= 


<LOGICAL RECORDS PER 
PHYSICAL RECORD> ::= 


<REEL NUMBER PART> ::= 
<REEL NUMBER> ::= 
<DISK FILE DESCRIPTION 
PART> ::= 

<NUMBER OF AREAS> ::= 


<PHYSICAL RECORDS 
PER AREA>D ::= 


<PACK.ID PART> ::= 
<PACK IDENTIFICATIOND ::= 
<OPEN OPTIOND ::= 


<OPEN OPTION ATTRIBUTE 
LIST) ::= 


<ALL.AREAS.AT. 
OPEN PART> ::= 


CAREA.BY.CYLINDER PART> ::<¢ 
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<NUMBER > 
VARIABLE 
LOCK 

SAVE = <SAVE FACTOR> 


<NUMBER > 


RECORDS = <RECORD SIZE SPECIFIER>D 


<PHYSICAL RECORD SIZE> 

<LOGICAL RECORD SIZE> <SLASH> 
<LOGICAL RECORDS PER PHYSICAL RECORD> 
<NUMBER > 


<NUMBER > 


<NUMBER > 
REEL = <REEL NUMBER> 

<NUMBER > 

AREAS = <NUMBER OF AREAS> <SLASH> 
<PHYSICAL RECORDS PER AREA> 


<NUMBER > 


<NUMBER > 
PACK.ID = <PACK IDENTIFICATION>D 
<CHARACTER STRING> 

OPEN.OPTION 

<OPEN OPTION ATTRIBUTE LIST> 


<OPEN ATTRIBUTED 

<OPEN ATTRIBUTE> <SLASHD 
<OPEN ATTRIBUTE LIST> 
ALL.AREAS.AT.OPEN 


AREA.BY.CYLINDER 
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- EU.SPECIAL = <NUMBER> 
—/ EU, INCREMENTED = <NUMBER> 


<EU. ASSIGNMENT PART) :: 


-<USE. INPUT. BLOCKING 


PART> ::= USE . INPUT. BLOCKING 
<SORTER STATION PART> ::=  SR.STATION = <NUMBER> 
<END.OF .PAGE PART> ::= END. OF .PAGE. ACTION 
<REMOTE.KEY PART: := REMOTE. KEY 


<NUMBER.OF .STATIONS>: : NUMBER.OF .STATIONS = <NUMBER> 


<MULTI PACK PART>::= MULTI .PACK 
<QUEUE FAMILY.SIZE 
PART) ::= QUEUE .FAMILY.SIZE = <NUMBER> 
<FILE TYPE PART>::= ~FILE.TYPE = <FILE TYPE SPECIFIER> 
<FILE TYPE SPECIFIER>::= DATA 

/ INTERPRETER 

/ CODE 

/ INTRINSIC 
<WORK FILE PART>::= WORK .FILE 
<LABEL TYPE PART>::=_ LABEL.TYPE = <LABEL TYPE SPECIFIER> 
<LABEL TYPE SPECIFIER>::= UNLABELED 


<SWITCH FILE | | 
DECLARATION STATEMENT): := SWITCH.FILE <SWITCH FILE 
DECLARE ELEMENT LIST> 


<SWITCH FILE 
DECLARE ELEMENT LIST>::= <SWITCH FILE DECLARE ELEMENT > 
/ <SWITCH FILE DECLARE ELEMENT>, 
<SWITCH FILE DECLARE ELEMENT LIST> 


<SWITCH FILE Be = 
DECLARE ELEMENT> ::= | <SWITCH FILE IDENTIFIERD (<FILE 
| IDENTIFIER LIST>) 


<SWITCH FILE IDENTIFIER>::= <IDENTIFIERD 


<FILE IDENTIFIER LIST>::= <FILE IDENTIFIER? 
/ <FILE IDENTIFIER>, <FILE IDENTIFIER LIST> 


(DEFINE STATEMENT> ::= DEFINE <DEFINE ELEMENT> 
| 7 <DEFINE STATEMENT), 
<DEF INE ELEMENT> 


<DEF INE ELEMENT> ;::= 
<DEF INE IDENTIFIER>D ::= 


<FORMAL PARAMETER PART> 
<FORMAL. PARAMETER LIST> 


<FORMAL PARAMETER> ::= 
DEFINE STRING>D ::= 


<WELL-FORMED CONSTRUCT > 


<BASIC COMPONENT> ::= 


<DEFINE INVOCATION> ::= 


<SIMPLE DEFINE 
IDENTIFIER> ::= 


<PARAMETRIC 
DEFINE IDENTIFIER>D ::= 


<DEF INE ACTUAL 
PARAMETER LIST> ::= 


<DEF INE ACTUAL 
PARAMETER> ::= 


<FORWARD DECLARATION? 


<COMPOUND PROCEDURE 
HEAD> ::= 


~ OS 


197 


DEFINE IDENTIFIERD>D 
<FORMAL PARAMETER PART > 
AS <DEFINE STRING> 


CIDENTIFIERD 


(<FORMAL PARAMETER LIST>) 
(<FORMAL PARAMETER LIST>] 
<EMPTY > 


<FORMAL PARAMETER> 
<FORMAL PARAMETER>, 
<FORMAL PARAMETER LIST> 


<IDENTIFIER> 


#<WELL-FORMED CONSTRUCT ># 


<EMPTY> | 
<BASIC COMPONENT > 
<WELL-FORMED CONSTRUCT > 


<RESERVED WORD> 
<IDENTIFIER> 
<SPECIAL CHARACTER> 
<COMMENT STRING> 
<CONSTANT > 


<SIMPLE DEFINE IDENTIFIER>D 
<PARAMETRIC DEFINE I[DENTIFIERD 
(<DEF INE ACTUAL PARAMETER LIST>) 


<PARAMETRIC DEFINE IDENTIFIER> 
(<DEF INE ACTUAL PARAMETER LIST>] 


<IDENTIF ITER> 
<IDENTIFIER> 


<DEF INE ACTUAL PARAMETER> 
<DEF INE ACTUAL PARAMETER>, 
<DEFINE ACTUAL PARAMETER LIST> 


C<WELL-FORMED CONSTRUCT > 


FORWARD <COMPOUND PROCEDURE HEAD> 


<PROCEDURE HEAD> 


<FORMAL PARAMETER DECLARATION 
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ASEE APPENDIX 


&DEFINED ABOVE 


<PROCEDURE HEAD> ::= 
<BASIC PROCEDURE HEAD> 


<PROCEDURE NAME> ::= 
<PROCEDURE IDENTIFIER> 
<TYPED PROCEDURE 
IDENTIFIER> ::= 


<NON-TYPED PROCEDURE 
IDENTIFIER>D ::= 


<INTRINSIC IDENTIFIER>:= 


<TYPED INTRINSIC 
IDENTIFIER>: := 


<NON-TYPED INTRINSIC 
IDENTIFIERD: := 
<PROCEDURE TYPE PART> 


<FORMAL TYPE PART> ::= 


<TYPE PART> ::= 


<TYPE VARYING PART> 


<FORMAL PARAMETER DECLA- 


RATION STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT > 
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STATEMENT LIST> 


<BASIC PROCEDURE HEAD> 
<PROCEDURE TYPE PART; 


<PROCEDURE NAME> 
<FORMAL PARAMETER PART > 


PROCEDURE <PROCEDURE IDENTIFIERD 
<TYPED PROCEDURE IDENTIFIER> 
<NON-TYPED PROCEDURE IDENTIFIER>D 


<IDENTIF IERD 


<IDENTIFIER>D 
<TYPED INTRINSIC IDENTIFIER>D 
<NON-TYPED INTRINSIC IDENTIFIERD 


<IDENTIFIER>D 


<IDENTIFIER> 


<EMPTY> 
<FORMAL TYPE PART> 


<TYPE PART> 
<TYPE VARYING PART> 


FIXED 


‘CHARACTER <FIELD SIZED 


BIT <FIELD SIZE> 
VARY ING 


BIT VARYING 
CHARACTER VARYING 


<EMPTY> 


/ <FORMAL PARAMETER DECLARATION STATEMENT) ; 


<FORMAL PARAMETER DECLARATION 
STATEMENT LIST) | 


FORMAL <FORMAL ELEMENT > 
FORMAL .VALUE <FORMAL ELEMENT) 


<FORMAL PARAMETER DECLARATION STATEMENT>, 


<FORMAL ELEMENT > 


<FORMAL ELEMENT> ::= 


<FORMAL INDENTIFIER 
LIST> ::= 


<FORMAL IDENTIFIERD> 


<COMPLEX IDENTIFIER> 


<VARYING ARRAY 


SPECIFIER> ::= 


<VARYING ARRAY BOUND> 


<USE STATEMENT> ::= 


<SIMPLE IDENTIFIER 
LIST> ::= 


<SIMPLE IDENTIFIERD>D 
<DEF INE IDENTIFIER>D 


<PROCEDURE STATEMENT 
LIST> ::= 


<PROCEDURE STATEMENT > 


<PROCEDURE DEF INITIOND>D 


<PROCEDURE BODY> ::= 


<PROCEDURE EXECUTABLE 
STATEMENT LIST> ::= | 
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(<FORMAL IDENTIFIER LIST>) 
<FORMAL TYPE PART> 
<FORMAL IDENTIFIER> 
<FORMAL TYPE PART> 


<FORMAL IDENTIFIER> 
<FORMAL IDENTIFIERD, 
<FORMAL IDENTIFIER LIST> 


<COMPLEX IDENTIFIER> 
<VARYING ARRAY SPECIFIER> 


ZDEFINED ABOVE 
ADEFINED ABOVE 
ADEFINED ABOVE 


<SIMPLE IDENTIFIER> 
<ARRAY IDENTIFIER>D 
<ARRAY BOUND > 


<ARRAY IDENTIFIER> 
<VARYING ARRAY BOUND> 


(*) 


USE (<SIMPLE IDENTIFIER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIER> 
<SIMPLE IDENTIFIERD, 
<SIMPLE IDENTIFIER LIST> 


<IDENTIFIER> 


<IDENTIF ITERD> 


<EMPTY> 
<PROCEDURE STATEMENT>; 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE DEF INITION> 
<SEGMENT STATEMENT > 
<PROCEDURE STATEMENT > 


<COMPOUND PROCEDURE HEAD> XDEFINED ABOVE 
<PROCEDURE BODY> 


<DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 

<PROCEDURE EXECUTABLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE STATEMENT > 


(c) 1973, 1974 Burroughs - DO NOT REPRODUCE 


<PROCEDURE EXECUTABLE 
STATEMENT> ::= 


<RETURN STATEMENT > 


<TYPED PROCEDURE 
RETURN STATEMENT> ::= 


<NON-TYPED PROCEDURE 
RETURN STATEMENT> ::= 


<PROCEDURE ENDING> ::= 


<EXECUTABLE STATEMENT 
LIST> ::= 


<EXECUTABLE STATEMENT > 


<DO GROUP> ::= 


<GROUP HEAD)? ::= 


“Nw NR NNR RRR RRR RR RRR RRS 
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<PROCEDURE EXECUTABLE STATEMENT > 
<PROCEDURE EXECUTABLE STATEMENT LIST> 


<EXECUTABLE STATEMENT> 

<RETURN STATEMENT); © 

<SEGMENT STATEMENT> XDEFINED ABOVE 
<PROCEDURE EXECUTABLE STATEMENT> 


<TYPED PROCEDURE RETURN STATEMENT > 
<NON-TYPED PROCEDURE RETURN STATEMENT > 


RETURN <EXPRESSION> 


RETURN 
RETURN.AND:.ENABLE. INTERRUPTS 


END 7 
END <PROCEDURE IDENTIFIER> 


<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT > 
<EXECUTABLE STATEMENT LIST> 


<DO GROUP>; 

<IF STATEMENT> 

<CASE STATEMENT>; 

<ASSIGNMENT STATEMENT >; 
<EXECUTE-PROCEDURE STATEMENT>; 
<EXECUTE-FUNCTION STATEMENT) ; 
<GROUP TERMINATION STATEMENT; 
<1/0 CONTROL STATEMENT> 
<MODIFY INSTRUCTIOND ; 

<NULL STATEMENT> 

<STOP STATEMENT) ; 

<FILE ATTRIBUTE STATEMENT ; 
<ZIP STATEMENT> 

<SEARCH STATEMENT> 

<ACCESS FILE HEADER STATEMENT> 
<SEND STATEMENT> 

<RECEIVE STATEMENT> 

<ARRAY PAGE TYPE STATEMENT> 
<COROUTINE STATEMENT> 

<WAIT STATEMENT>; 

<SEGMENT STATEMENT > 
<EXECUTABLE STATEMENT > 


<GROUP HEAD> 
<GROUP BODY> 


<GROUP NAME> 
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<FOREVER PART>; 


<GROUP NAME> ::= DO 
/ DO <GROUP IDENTIFIER> 
<FOREVER PART> ::= <EMPTY> 
/ FOREVER 
<GROUP IDENTIFIER> ::= <IDENTIFIER> 
<GROUP BODY> ::= <EXECUTABLE STATEMENT LIST>%DEFINED ABOVE 


<GROUP ENDING> 


<GROUP ENDING> 


END 
/ END <GROUP IDENTIFIER>D 


<IF STATEMENT > 


<IF CLAUSE > 
<EXECUTABLE STATEMENT > 
/ <IF CLAUSE > 
<EXECUTABLE STATEMENT > 
ELSE <EXECUTABLE STATEMENT > 


<IF CLAUSE> ::= IF <EXPRESSION> THEN 
<EXPRESSION LIST> ::= <EXPRESSION> 
/ <EXPRESSION>, 
<EXPRESSION LIST> 
<EXPRESSION> ::= <STRING EXPRESSION? 
/ <STRING EXPRESSION> 
CAT <EXPRESSION> 


<STRING EXPRESSION> 


<LOGICAL FACTOR> 

/ <LOGICAL FACTOR> 
<OR-ING OPERATOR> 
<STRING EXPRESSION> 


<OR-ING OPERATORD ::= OR / EXOR 
<LOGICAL FACTOR>D ::= <LOGICAL SECONDARY > 
/ <LOGICAL SECONDARY > 
AND <LOGICAL FACTOR> 


<LOGICAL SECONDARY > 


<LOGICAL PRIMARY> 
/ NOT <LOGICAL PRIMARY > 


<LOGICAL PRIMARY> ::= <ARITHMETIC EXPRESSION> 
/ <ARITHMETIC EXPRESSION> 
<RELATIOND> 
<ARITHMETIC EXPRESSION> 
<RELATION> ::= | Cc ¢/ § ¢ #® $ # f 2D. FS DS 
| LSS / LEQ / EQL / NEQ / 
GEQ / GTR 
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<ARITHMETIC 
EXPRESSION>D ::= <TERM> 
/ <TERM> 
<ADDITIVE OPERATOR> 
<ARITHMETIC EXPRESSIOND 
<ADDITIVE OPERATOR> ::= + / - | 
<TERM> ::= <SIGNED PRIMARY> 
/ <SIGNED PRIMARY> | 
<MULTIPLICATIVE OPERATOR> 
<TERM> 
<MULTIPLICATIVE 
OPERATOR> ::= * / MOD / + <SLASH> 
<SIGNED PRIMARYD ::= <PRIMARY > 
/ <UNARY OPERATOR> 
<PRIMARY> 
<UNARY OPERATOR> ::= + / - 
<PRIMARY> ::= | <CONSTANTD XDEFINED ABOVE 
/ <VARIABLE> 
/ (<EXPRESSION>) XDEFINED ABOVE 
/ <CONDITIONAL EXPRESSION> 
/ <CASE EXPRESSION> 
/. <BUMPOR> 
/ <DECREMENTOR> 
/ <ASSIGNOR> 
<VARIABLED ::= <ADDRESS VARI ABLE> 


/ <VALUE VARIABLE > 


<ADDRESS VARIABLE> ::= <SIMPLE VARIABLE> - 
/ <SUBSCRIPTED VARIABLE> 
<INDEXED VARIABLE > 
_/ SADDRESS-GENERATING FUNCTION DESIGNATOR> 


™m 


<SIMPLE VARIABLE> ::= <SIMPLE IDENTIFIER> 

<SIMPLE IDENTIFIER> ::= <IDENTIFIER> 

<SUBSCRIPTED VARIABLE> ::=  <ARRAY IDENTIFIER> | 
(<EXPRESSION>) XDEFINED ABOVE 

<ARRAY IDENTIFIER ::= <IDENTIFIER> XDEFINED ABOVE 

<INDEXED VARIABLE> ::= <SIMPLE IDENTIFIER> 


<INDEX PART> 
/ <ARRAY IDENTIFIER> 
<INDEX PART> 
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<INDEX PART> ::= C<EXPRESSION LIST>] ADEFINED ABOVE 


<ADDRESS-GENERAT ING 
FUNCTION DESIGNATOR> ::= <SUB-STRING ADDRESS DESIGNATOR> 
/ <FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATOR> 
/ <DESCRIPTOR DESIGNATOR> 
<DESCRIPTOR-GENERATOR DESIGNATOR> 
/ <ADDRESS-MODIFIER DESIGNATOR> 


~ 


<SUB-STRING ADDRESS 
DESIGNATOR> ::= | <SUB-STRING FUNCTION IDENTIFIERD 
(<STRING ADDRESS> ,<OFFSET PART>) 
/ <SUB-STRING FUNCTION IDENTIFIERD 
(<STRING ADDRESS> ,<OFFSET PART>, 
<LENGTH PART >) 


<SUB-STRING FUNCTION 


IDENTIFIER> ::= SUBSTR 

/ SUBBIT 
<OFFSET PART> = <EXPRESSION> 
<LENGTH PART> = <EXPRESSION> 
<STRING ADDRESS> ::= <ADDRESS GENERATOR> 


<ADDRESS GENERATOR | 
LIST> ::= <ADDRESS GENERATOR> 
/ SADDRESS GENERATOR>, | 
<ADDRESS GENERATOR LIST> 


<ADDRESS GENERATORD>D ::= <ADDRESS VARIABLE > ADEFINED ABOVE 
<BUMPOR > 

<DECREMENTOR> 

<CONDITIONAL ADDRESS GENERATOR> 

<CASE ADDRESS GENERATOR> 
<ADDRESS-GENERATING ASSIGNOR> 


~ nN NN ONS 


<BUMPOR> ::= BUMP <ADDRESS VARIABLE> 
<MODIFIER> : 


<MODIFIER>D ::= <EMPTY> 
| / BY <EXPRESSION> 


<DECREMENTOR> ::= DECREMENT <ADDRESS VARIABLE > 
<MODIF IERD 


<CONDITIONAL ADDRESS 
GENERATORD ::= IF <EXPRESSION> 
THEN <ADDRESS GENERATOR> 
ELSE <ADDRESS GENERATOR> 
<CASE ADDRESS 
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GENERATOR> ::= 


<A DDRESS-GENERAT ING 
ASSIGNOR> :;:= 


<ASSIGNOR> ::= 


<NON-DESTRUCT IVE 
REPLACE> ::= 


<REPLACE, DELETE 
LEFT PART> ::= 


<REPLACE, DELETE 
RIGHT PART> ::= 


<FETCH COMMUNICATE MESSAGE 


POINTER DESIGNATOR> ::= 
<DESCRIPTOR DESIGNATOR> 
<DESCRIPTOR-GENERATOR 
DESIGNATORD>D :;::= 
<ADDRESS-MODIFIER 
DESIGNATOR> ::= 


<ADDRESS-MODIF IER 
_ FUNCTION IDENTIFIER> 


<VALUE VARIABLE? ::= 


<VALUE-GENERAT ING 
FUNCTION DESIGNATOR> 
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CASE <EXPRESS ION> 
OF (<ADDRESS GENERATOR LIST>) 


<ADDRESS VARIABLE> 
<REPLACE, DELETE LEFT PART> 
<ADDRESS GENERATOR> 
<ADDRESS VARIABLE> 

<REPLACE, DELETE RIGHT PART> 
<EXPRESS ION> 


<ADDRESS VARIABLE> 


<NON-DESTRUCTIVE REPLACE> 
<EXPRESS ION> 


<REPLACE, DELETE LEFT PART> 


/ <REPLACE, DELETE RIGHT PART> 


~ NNO 


— ~—s 


FETCH.COMMUNICATE .MSG.PTR 


DESCRIPTOR (<SIMPLE IDENTIFIER>) 
DESCRIPTOR (<ARRAY IDENTIFIERD) 


MAKE .DESCRIPTOR (<EXPRESSION>) 


<ADDRESS-MODIFIER FUNCTION IDENTIFIER>D 
(<SIMPLE IDENTIFIER>D) 


NEXT. ITEM 
PREVIOUS. ITEM 


<VALUE-GENERATING FUNCTION DESIGNATOR> 
<TYPED PROCEDURE DESIGNATOR> 

(<ADDRESS VARIABLE >) 

<FILE DESIGNAROR> 


<SWAP DESIGNATOR> 

<SUB-STRING VALUE DESIGNATOR> 
<DISPATCH DESIGNATORD> 
<LOCATION DESIGNATOR> 
<CONVERT DESIGNATOR> 

<LENGTH DESIGNATOR> 
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<MEMORY SIZE DESIGNATOR> 
<DESCRIPTOR-VALUE-GENERATOR DESIGNATOR> 
<INTERROGATE INTERRUPT STATUS DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<BINARY CONVERSION DESIGNATOR> 
~<TIME FUNCTION DESIGNATOR> 

<DATE FUNCTION DESIGNATOR> 
<NAME-OF-DAY FUNCTION DESIGNATOR> 
<BASE REGISTER DESIGNATOR> 

<LIMIT REGISTER DESIGNATOR 
<CONTROL STACK TOP DESIGNATOR> 
<DATA ADDRESS DESIGNATOR> 
<SEARCH.LINKED.LIST DESIGNATOR> 
<SORT.STEP.DOWN DESIGNATOR> 
<SORT.UNBLOCK DESIGNATOR> 

<SORT .SEARCH DESIGNATOR> 
<PARITY.ADDRESS DESIGNATOR> 
<DYNAMIC MEMORY BASE DESIGNATOR> 
<HASH CODE DESIGNATOR> 

<NEXT TOKEN DESIGNATOR> 
<DELIMITED TOKEN DESIGNATOR> 
<EVALUATION STACK TOP DESIGNATOR> 
<CONTROL STACK BITS DESIGNATOR> 
<NAME STACK TOP DESIGNATOR> 
<DISPLAY BASE DESIGNATOR> 
<CONSOLE SWITCHES DESIGNATOR> 
<SEARCH SERIAL LIST DISIGNATOR> 
<SPO INPUT PRESENT DESIGNATOR> 
<SEARCH.SDL.STACKS DESIGNATOR> 
<EXECUTE DESIGNATOR> 


<SWAP DESIGNATORD ::= SWAP (<ADDRESS GENERATOR>, <EXPRESSION>) 


<SUB-STRING VALUE 
DESIGNATOR> ::= <SUBSTRING FUNCTION IDENTIFIER> 
(<STRING VALUE>,<OFFSET PART>) 
/ <SUBSTRING FUNCTION IDENTIFIERD> 
(<STRING VALUED ,<OFFSET PART > 
<LENGTH PART >) 


<STRING VALUE> ::= <EXPRESSION> 


<DISPATCH DESIGNATOR> 


(<PORT ,CHANNEL ,PRIORITY>, 
<1/0 DESCRIPTOR ADDRESS>) 


<PORT ,CHANNEL ,PRIORITY ::= <EXPRESSION>D 


<1/0 DESCRIPTOR 
ADDRESS> ::= <EXPRESSION> 


LOCATION (<LOCATION PARAMETER PARTD) 


li 


<LOCATION DESIGNATOR> :: 


<LOCATION PARAMETER 
PART>::= oo «PROCEDURE IDENTIFIERD 
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/ <SIMPLE IDENTIFIERD 
/ <ARRAY IDENTIFIER> 


<CONVERT DESIGNATOR> 


CONVERT (<EXPRESSION>, 
<CONVERSION PART >) 
/ CONV (<EXPRESSIOND, 


<CONVERSION PART> 


<CONVERSION TYPE> 


<BIT GROUP SIZE> ::= 
<LENGTH DESIGNATOR> 
<MEMORY SIZE 
DESIGNATOR> ::= 
<DESCRIPTOR-VALUE- 
GENERATOR DESIGNATOR> 


<INTERROGATE INTERRUPT 
STATUS DESIGNATORD>D ::= 


<DECIMAL CONVERSION 
DESIGNATOR) ::= 


<DECIMAL STRING SIZED 


<BINARY CONVERSION 
DESIGNATOR> ::= 


<TIME FUNCTION 
DESIGNATOR> ::= 
<TIME FORMAT> ::= 
<REPRESENTATION> ::= 


<BASE REGISTER 
DESIGNATOR>D ::= 


<LIMIT REGISTER 
DESIGNATOR> ::= 


<CONTROL STACK 
TOP DESIGNATOR> ::= 


<DATE FUNCTION 


<CONVERSION PART >) 


<CONVERSION TYPE> 


/ <CONVERSION TYPED, 


<BIT GROUP SIZE> 
BIT / FIXED / CHARACTER 
Lf ey $7 4 


LENGTH (<EXPRESSION>D) 


S.MEM.SIZE 
M.MEM.SIZE 


VALUE .DESCRIPTOR (<ADDRESS GENERATOR?) ) 
INTERROGATE. INTERRUPT .STATUS 


DECIMAL (<EXPRESSION> ,<DECIMAL STRING SIZE>) 


<EXPRESSION> 


BINARY (<EXPRESSIOND) 


TIME 


TIME (<TIME FORMAT>,<REPRESENTATIOND) 
COUNTER/MILITARY/CIVILIAN 


BIT/DIGIT/CHARACTER 


BASE .REGISTER 


LIMIT.REGISTER 


CONTROL .STACK. TOP 


DESIGNATOR>D ::= 


<DATA FORMAT> ::= 


<NAME -OF -DAY 
FUNCTION DESIGNATOR> 


<DATA ADDRESS 
DESIGNATOR> ::= 


<SEARCH.LINKED.LIST 
DESIGNATOR> ::= 


<RECORD ADDRESS> 


<ARGUMENT INDEX> 


<COMPARE VARIABLE> 


<RELATIOND ::= 


<LINK INDEX) ::= 


<SORT.STEP.DOWN 
DESIGNATOR>D ::= 


<RECORD 1> 


“<RECORD e> 


<KEY TABLE ADDRESS> 


<SORT . UNBLOCK 
DESIGNATOR> ::= 


<MINI FIB ADDRESS> 


LENGTH) 


<SOURCE> :: 


_ SDESTINATION> 235 


<SORT .SEARCH 
DESIGNATOR> ::= 
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DATE 
DATE (<DATE FORMAT>,<REPRESENTATION>) 


JULIAN / MONTH / DAY / YEAR 
NAME .OF .DAY 
DATA.ADDRESS(<ADDRESS GENERATOR> ) 


SEARCH.LINKED.LIST 

(<RECORD ADDRESS> ,<ARGUMENT INDEX>D, 
<COMPARE VARIABLE>,<RELATIOND, 
<LINK INDEX)) 

<EXPRESSION> 

<EXPRESSIOND 


<EXPRESSIOND 


<EXPRESSIOND 


SORT. STEP. DOWN 
(<RECORD 1>,<RECORD 2>, 

<KEY TABLE ADDRESS>) 

<EXPRESSION> 

<EXPRESSION> 

<EXPRESSION> 

SORT.UNBLOCK (<MINI FIB ADDRESS>, 
<LENGTH>, <SOURCE> , <DESTINATIOND) 
<ADDRESS GENERATOR> 

<EXPRESSION> 

<EXPRESSION> 


<EXPRESSION> 


SORT .SE ARCH 
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<TABLE ADDRESS> ::= 
<LIMIT> ::= 


<PARITY.ADDRESS 
DESIGNATORD ::= 


<DYNAMIC MEMORY 
BASE DESIGNATOR> ::= 


<HASH CODE DESIGNATOR>: := 


<TOKEN>: := 


<NEXT TOKEN DESIGNATOR): : 


<NUMERIC-TO-ALPHA 
INDICATOR>::= 


<DELIMITED TOKEN 
DESIGNATOR>: := 


<FIRST CHARACTER>: := 


<RESULT>: := 


<EVALUATION STACK 
TOP DESIGNATOR>: := 


<CONTROL STACK 
BITS DESIGNATOR>: := 


<NAME STACK | 
TOP DESIGNATOR): := 


<DISPLAY BASE 
DESIGNATOR>: := 


<CONSOLE SWITCHES 
DESIGNATOR>: := | 


<SEARCH SERIAL 
LIST DESIGNATOR): := 
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(<TABLE ADDRESS> ,<LIMIT>) 
<ADDRESS GENERATOR? | 


<EXPRESSION> 
PARITY.ADDRESS 


DYNAMIC.MEMORY.BASE _ 
HASH.CODE (<TOKEN>). 


<EXPRESSION> 


NEXT.TOKEN (<FIRST CHARACTER>, 


<SEPARATOR>, NUMERIC-TO-ALPHA INDICATOR>, 
<RESULT >) 


SET 
RESET 


DELIMITED. TOKEN (<FIRST CHARACTER>, 
<DELIMITERS>, <RESULT>) 


<CHARACTER STRING> 
<BIT STRING> 
<IDENTIFIERD 
EVALUATION. STACK. TOP 
CONTROL .STACK.BITS 
NAME .STACK. TOP 
DISPLAY. BASE 


CONSOLE .SWITCHES 


SEARCH.SERIAL.LIST (<SSL COMPARE VALUE>, 
<SSL COMPARE TYPE>, <SSL COMPARE FIELD>, 
<SSL FIRST ITEM>, <SSL TABLE LENGTH>, 
<SSL RESULT VARIABLE >) 
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<SSL COMPARE VALUE>::= <EXPRESSION> 


<SSL COMPARE TYPE>:: </§/=/#/2/) 


<SSL COMPARE FIELD>::= <EXPRESSION> 

<SSL FIRST ITEM>::= <EXPRESSION> 

<SSL TABLE LENGTH>::= <EXPRESSION> 

<SSL RESULT VARIABLED: := <ADDRESS GENERATOR> 
<SPO INPUT 


PRESENT DESIGNATOR): := SPO. INPUT .PRESENT 


<SEARCH.SDL.STACKS 

DESIGNATOR): := SEARCH.SDL .STACKS 
(<STACK BASE>, <STACK TOP>, 
<COMPARE BASE>, <COMPARE TOP>) 


<STACK BASE>: := <EXPRESSION> 
<STACK TOP>: := <EXPRESSION> 
<COMPARE BASE>::= <EXPRESS ION> 
<COMPARE TOP>: := <EXPRESSION> 
<EXECUTE DESIGNATOR>: := EXECUTE (<EXPRESSION LIST>) 


<TYPED PROCEDURE 
DESIGNATOR> ::= <TYPED PROCEDURE IDENTIFIER>D 
<ACTUAL PARAMETER PART> 


<TYPED PROCEDURE 
IDENTIFIER>D ::= <IDENTIF IERD 


<ACTUAL PARAMETER PART> ::= <EMPTY> 
/ (<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMETER> 
/ <ACTUAL PARAMETER>, 
<ACTUAL PARAMETER LIST> 


<EXPRESSION> 
/ <ARRAY DESIGNATOR> 


<ACTUAL PARAMETER> 


<ARRAY DESIGNATOR> 


<ARRAY IDENTIFIER> ADEFINED ABOVE 


<CONDI TIONAL : 
EXPRESSION>D ::= IF <EXPRESSION> 
7 THEN <EXPRESSION> 
ELSE <EXPRESSION> 
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<CASE EXPRESSIOND ::= 
<CASE STATEMENT> ::= 


<CASE HEAD> 


<CASE BODY> 


<CASE ENDING> ::= 


<ASSIGNMENT STATEMENT> 


<REPLACE> ::= 


<EXECUTE-PROCEDURE 
STATEMENT> ::= 


<NON-TYPED PROCEDURE 
DESIGNATOR> ::= 
<NON-TYPED PROCEDURE 
IDENTIFIER> ::= 


<EXECUTE-FUNCT ION 
STATEMENT> ::= 


<FUNCTION DESIGNATOR> 


~~ ~~ RRR RRR RR RRR RRR SS 
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CASE <EXPRESSION> 
OF (<EXPRESSION LIST>) 


<CASE HEAD> 
<CASE BODY> 


CASE <EXPRESSIOND ; 


EXECUTABLE STATEMENT LIST> 
<CASE ENDING) 


END CASE 


<ADDRESS VARIABLE> 
<REPLACE > 
<EXPRESSION> 


@/ ;= 
<NON-TYPED PROCEDURE DESIGNATOR> 


<NON-TYPED PROCEDURE IDENTIFIER> 
<ACTUAL PARAMETER PART > 


<IDENTIF IER> 


<FUNCTION DESIGNATOR> 


<DUMP DESIGNATOR> 

<TRACE DESIGNATOR> 

<SAVE DESIGNATOR> 

<RESTORE DESIGNATOR> 

<FETCH DESIGNATOR> 

<HALT DESIGNATOR> 

<REINSTATE DESIGNATOR> 
<ACCESS-FPB DESIGNATORD> 
<REVERSE STORE DESIGNATOR> 
<READ CASSETTE DESIGNATOR> 
<ACCESS OVERLAY DESIGNATOR> 
<ERROR COMMUNICATE DESIGNATOR> 
<SORT DESIGNATOR> 7 
<OVERLAY DESIGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 
<SAVE STATE DESIGNATOR> 
<SORT.SWAP DESIGNATOR> 
<INITIALIZE.VECTOR DESIGNATORD> 
<THREAD. VECTOR DESIGNATORD> 
<ENABLE. INTERRUPTS DESIGNATORD> 
<DISABLE. INTERRUPTS DESIGNATOR> 
<ACCESS FILE INFORMATION © 
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DESIGNATOR> 

<DEBLANK DESIGNATOR) 
<FREEZE-PROGRAM DESIGNATOR> 
<THAW-PROGRAM DESIGNATOR> 
<DUMP-FOR-ANALYSIS DESIGNATOR> 
<COMPILE-CARD-INFO DESIGNATOR> 
<COMMUNICATE DESIGNATORD> 


~ NN NHN ON OS 


<DUMP DESIGNATOR> DUMP 


<TRACE DESIGNATOR> ::= TRACE / NOTRACE 
/ TRACE (<EXPRESSION>) 


<SAVE DESIGNATOR> 


SAVE (<EXPRESSION LIST>) 
<RESTORE DESIGNATOR> ::= RESTORE (<ADDRESS GENERATOR LIST>) 
<FETCH DESIGNATOR> ::= (<I/O REFERENCE ADDRESS>, 
/ <PORT,CHANNEL ,PRIORITY ADDRESS>, 
<RESULT DESCRIPTOR ADDRESS>) 
<I/O REFERENCE ADDRESS> ::= <EXPRESSION> 


<PORT , CHANNEL , 
PRIORITY ADDRESS> 


<ADDRSS GENERATOR> 


<RESULT DESCRIPTOR 
ADDRESS> ::= <ADDRESS GENERATOR> 


<HALT DESIGNATOR> HALT (<EXPRESSION>) 


<REINSTATE DESIGNATOR> ::= REINSTATE (<REINSTATED PROGRAM) ) 
<REINSTATED PROGRAM> ::= <ADDRESS GENERATOR> 


<ACCESS-FPB DESIGNATOR> 


<ACCESS-FPB IDENTIFERD 
(<FILE SPECIFIER>D, 
<SOURCE OR DESTINATION FIELD>) 


<ACCESS FPB IDENTIFIER> ::= READ.FPB / WRITE.FPB 
<FILE SPECIFIER> ::= <FILE DESIGNATOR> 
/ <FILE NUMBER> 
<FILE NUMBER> ::= <EXPRESSIOND 
<SOURCE OR DESTINATION 
PIELD> << <ADDRESS GENERATOR> 
<REVERSE STORE 
DESIGNATOR> ::= REVERSE.STORE (<ADDRESS GENERATOR LIST>, 
<EXPRESSIOND) | 


<READ CASSETTE 
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DESIGNATOR): := | READ. CASSETTE (<DESTINATION SPECIFIER, 


<HASH. TOTAL SPECIFIER>, <RESULT SPECIFIER 
<DESTINATION SPECIFIER>::= <ADDRESS GENERATORD 
<HASH. TOTAL SPECIFIER>::= = HASH. TOTAL 
| / NO.HASH. TOTAL 
<RESULT SPECIFIER>::= <ADDRESS GENERATOR> 
<ACCESS OVERLAY 
DESIGNATOR> ::= <ACCESS OVERLAY IDENTIFIER>(<EXPRESSION>) 
<ACCESS OVERLAY | 
IDENTIFIER> ::= READ.OVERLAY / WRITE.OVERLAY 
<ERROR COMMUNICATE 
DESIGNATOR> ::= - ERROR.COMMUNICATE (<EXPRESSION>) 


<SORT DESIGNATOR> ::= SORT (<SORT-INFORMATION-TABLE SPECIFIER>D, 
| | <SORT-KEY-TABLE SPECIFIERD, | 
<INPUT FILE DESIGNATOR>, 
<OUTPUT FILE DESIGNATOR>) 


<SORT— INFORMAT ION-TABLE 


SPECIFIER> ::= <ADDRESS GENERATOR> 
<SORT-KEY-TABLE 

SPECIFIER> ::= <ADDRESS GENERATOR> 
<INPUT FILE DESIGNATOR>::=  <FILE DESIGNATOR> 


<OUTPUT FILE | : 
DESIGNATOR> ::= <FILE DESIGNATOR> 


<OVERLAY DESIGNATOR> OVERLAY (<EXPRESSION>D) 


<HARDWARE MONITOR 
DESIGNATOR> ::= HARDWARE .MONITOR (<EXPRESSION>D) 


<SAVE STATE DESIGNATOR> ::= SAVE.STATE 


<SORT.SWAP DESIGNATOR> SORT.SWAP (<RECORD 1>,<RECORD e>) 


<RECORD 1> ::= | <ADDRESS GENERATOR> 

<RECORD @> ::= | <ADDRESS GENERATOR> 

<INITIALIZE. VECTOR | 

DESIGNAJOR> ::= INITIALIZE.VECTOR (<TABLE ADDRESS>) 


<TABLE ADDRESS> ::= | <ADDRESS GENERATOR> 


<THREAD. VECTOR 


Ly-es 


DESIGNATOR> ::= THREAD. VECTOR (<TABLE ADDRESS>,<INDEX)) 


<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 
<INDEX> ::= <EXPRESSION> 


<ENABLE . INTERRUPTS 
DESIGNATOR> ::= ENABLE. INTERRUPTS 


<DISABLE. INTERRUPTS 
DESIGNATOR> ::= DISABLE. INTERRUPTS 


<ACCESS FILE INFORMATION 
DESIGNATOR ::= ACCESS.FILE. INFORMATION (<FILE 
| DESIGNATOR>, <RETURN TYPE>, <DESTINATION>) 


<FILE DESIGNATOR> ::= <FILE IDENTIFIERD 
/ <SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<RETURN TYPE> BIT / CHARACTER 


<DESTINATION>D ::= <ADDRESS GENERATOR> 
<DEBLANK DESIGNATOR): := DEBLANK (<FIRST CHARACTER?) ) 
<FIRST CHARACTER>: := <IDENTIFIER>D 
<FREEZE-PROGRAM 

DESIGNATOR): := FREEZE .PROGRAM 

< THAW-PROGRAM 

DESIGNATOR>: := THAW .PROGRAM 

<DUMP-F OR- 

ANALYSIS DESIGNATOR): := DUMP .FOR.ANALYSIS 


<COMP ILE-CARD- 
INFO DESIGNATOR): := COMPILE .CARD. INFO 
(<CCI DESTINATION FIELD>) 


<CCI DESTINATION FIELD): := <ADDRESS GENERATOR> 
<COMMUNICATE DESIGNATOR>::= COMMUNICATE (<EXPRESSION>) 
<GROUP TERMINATION 
STATEMENT> ::= | .? — UNDO 

/ UNDO (*) 

/ UNDO <GROUP IDENTIFIER> %DEFINED ABOVE 
<1/0 CONTROL STATEMENT> ::= <OPEN STATEMENT); 

| / <CLOSE STATEMENT); 

/ <READ STATEMENT > 

/ <WRITE STATEMENT > 

/ “SEEK STATEMENT); © 
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<OPEN STATEMENT): := 


<OPEN PART>D ::= 
<FILE DESIGNATOR>: := 


<OPEN ATTRIBUTE PART> 


<OPEN ATTRIBUTE LIST> 


<ATTRIBUTE SEPARATOR>: : 


<OPEN ATTRIBUTED ::= 


<INPUT-OUTPUT MODE> 


<LOCK MODE> ::= 


<OPEN ACTION MODE> 


<CODE FILE MODE> 


<MFCU MODE>::= 


<CLOSE STATEMENT): : 


<CLOSE ATTRIBUTE PART> 


<CLOSE ATTRIBUTE LIST> 


~ NR 


~ NON 
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<ACCEPT STATEMENT); 

<DISPLAY STATEMENT >; 
<SPACE STATEMENT> — 

<SKIP STATEMENT); 


<OPEN PART > 

<OPEN PART>; <FILE MISSING PART > 
<OPEN PART>; <FILE LOCKED PART> 

<OPEN PART>; <FILE MISSING PART> 
<FILE LOCKED PART> 


OPEN <FILE DESIGNATOR> 
<OPEN ATTRIBUTE PART> 


<FILE IDENTIFIER>D 
CSWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<EMPTY> 
<OPEN ATTRIBUTE LIST> 
WITH <OPEN ATTRIBUTE LIST> 


<OPEN ATTRIBUTE> 
<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATORD 
<OPEN ATTRIBUTE LIST> | 


, / <SLASH> / <EMPTY> 


< INPUT-OUTPUT MODE> 
<LOCK MODE> 
<OPEN ACTION MODE> 
<CODE FILE MODE> — 
<MFCU MODE > 


INPUT / OUTPUT / NEW 


LOCK / LOCK.OUT 


NO.REWIND / REVERSE 
CODE .FILE 


PUNCH / PRINT / 
INTERPRET / STACKERS 


CLOSE <FILE DESIGNATOR> % DEFINED ABOVE 
<CLOSE ATTRIBUTE PART> 


<EMPTY> 


<CLOSE ATTRIBUTE LIST> 
WITH <CLOSE ATTRIBUTE LIST> 


<CLOSE ATTRIBUTED 
<CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR> 


<ATTRIBUTE SEPARATOR): := 


<CLOSE ATTRIBUTED ::= 


<CLOSE MODE> ::= 


<READ STATEMENT> ::= 


<READ PART> ::= 


<READ SPECIFIER> ::= 


<DISK READ SPECIFIER> 


<RECORD LOCK PART> ::= 


<RECORD ADDRESS PART> 
<RECORD ADDRESS> ::= 
<REMOTE READ SPECIFIERD>:: 
<REMOTE KEY PART>::= 
<REMOTE KEY>::= 


QUEUE READ SPECIFIER> :: 


<QUEUVE FAMILY 
MEMBER PART): := 


<QUEVUE FAMILY MEMBER): := 
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<CLOSE ATTRIBUTE LIST> 
. / <SLASH> / <EMPTY> 


<CLOSE: MODE > 
CRUNCH / ROLLOUT / IF.NOT.CLOSED 


REEL / RELEASE / PURGE / REMOVE 
NO.REWIND / LOCK / CODE.FILE 


<READ PART>; 

<READ PART>;<EOF PART> 

<READ PART>; <EXCEPTION PART > 

<READ PART>; <EOF PART> <EXCEPTION PART> 


<READ SPECIF IER>D 

<DISK READ SPECIFIER> 
<REMOTE READ SPECIF IER> 
<QUEUE READ SPECIFIER>D 


READ <FILE DESIGNATOR> 
(<ADDRESS GENERATOR>) 


READ <RECORD LOCK PART> 
<FILE DESIGNATOR> 
<RECORD ADDRESS PART > 
(<ADDRESS GENERATOR>) 
<EMPTY> / LOCK 


<EMPTY> 
[<RECORD ADDRESS> } 


<EXPRESSION> 

READ <FILE DESIGNATOR> 
<REMOTE KEY PART> 
(<ADDRESS GENERATOR? ) 


<EMPTY> 
[<REMOTE KEY>) 


<ADDRESS GENERATOR> 
READ <FILE DESIGNATOR> 


<QUEVE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR>) 


<EMPTY> : 
[<QUEUE FAMILY MEMBER> ] 


<EXPRESSIOND 
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<EOF PART> ::= ON EOF <EXECUTABLE STATEMENT> 
<EXCEPTION PART>: := ON EXCEPTION <EXECUTABLE STATEMENT> 


<WRITE STATEMENT> ::= C<WRITE PART); | 
| / <WRITE PART>;<EOF PART> | 
/ <WRITE PART>;<EXCEPTION PART > 
/ <WRITE PART>;<EOF PART> <EXCEPTION PART> 


<WRITE PART> ::= <WRITE SPECIFIER> 
/ <DISK WRITE SPECIFIERD 
/ <REMOTE WRITE SPECIFIER>D 
/ <QUEVE WRITE SPECIFIERD - 


<WRITE SPECIFIER> ::= WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART> 
(<EXPRESSION>) 
/ WRITE <FILE DESIGNATOR> 
<CARRIAGE CONTROL PART> 


<CARRIAGE CONTROL PART> ::= <EMPTY> 
/ <CARRIAGE CONTROL SPECIFIER>D 


<CARRIAGE CONTROL | 
SPECIFIER> ::= NO / SINGLE / DOUBLE / PAGE 
/ <SKIP-TO-CHANNEL> / NEXT 


<SKIP-TO-CHANNEL> ::= <CHANNEL NUMBER> 
<CHANNEL NUMBER> ::= L[Te27 ST ton f Tete 
<DISK WRITE SPECIFIER> ::= WRITE <RECORD LOCK PART> 


<FILE DESIGNATOR> 
<RECORD ADDRESS PART > 


(<EXPRESSIOND) 
<REMOTE WRITE 
SPECIFIER>::= | WRITE <FILE DESIGNATOR> 
| <REMOTE KEY PART> 
(<EXPRESSION>) 
<REMOTE KEY PART): := <EMPTY> 


/ (<REMOTE KEY) ] 


<REMOTE KEY):: <ADDRESS GENERATOR> | 

QUEUE WRITE 

SPECIFIER>::= WRITE <FILE DESIGNATOR> 
<QUEUE FAMILY MEMBER PART> 
(<ADDRESS GENERATOR>) | 


<QUEUE FAMILY 
MEMBER PART>:: 


<EMPTY > _ 
/ (<QUEUE FAMILY MEMBER> ] 


<QUEUE FAMILY MEMBERD: := 


<EXCEPTION PART> 


<SEEK STATEMENT > 


<ACCEPT STATEMENT> ;::= 


<END-OF -TEXT 
SPECIFIER> ::= 


<DISPLAY STATEMENT> ::= 


<CRUNCH SPECIFIER> ::= 


<SPACE STATEMENT> ::= 


<SPACE PART> ::= 


<SPACING SPECIFIER> ::= 


<SKIP STATEMENT> ::= 


<MODIFY INSTRUCTION>D ::= 


<CLEAR STATEMENT> ::= 


<ARRAY IDENTIFIER LIST> 


<BUMP STATEMENT> ::= 


<DECREMENT STATEMENT > 


<NULL STATEMENT > 


<STOP STATEMENT > 


<FILE ATTRIBUTE - 


™“~ 
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<EXPRESSION> 

ON EXCEPTION <EXECUTABLE STATEMENT > 
SEEK <RECORD LOCK PART> 

<FILE DESIGNATOR> 

[<RECORD ADDRESS> ] 

ACCEPT <ADDRESS GENERATOR> 
<END-OF-TEXT SPECIFIER> 

<EMPTY> 

» END.OF.TEXT 


DISPLAY <EXPRESSION> 
<CRUNCH SPECIF IER> 


<EMPTY> 
,» CRUNCHED 


<SPACE PART>; 
<SPACE PART>; <EOF PART> 
<SPACE PART>; <EXCEPTION PART> | 
<SPACE PART>; <EOF PART> <EXCEPTION PART> 


SPACE <FILE DESIGNATOR> 
<SPACING SPECIFIERD 


<EXPRESSION> / TO <EXPRESSION> 
SKIP <FILE DESIGNATOR> TO <CHANNEL NUMBER? 
<CLEAR STATEMENT> _ 

<BUMP STATEMENT> 

<DECREMENT STATEMENT> 

CLEAR <ARRAY IDENTIFIER LIST> 

<ARRAY IDENTIFIER> XDEFINED ABOVE 
<ARRAY IDENTIFIER>, 

<ARRAY IDENTIFIER LIST> 

BUMP <ADDRESS VARIABLE> <MODIFIER> 


DECREMENT <ADDRESS VARIABLE> <MODIFIERD>D 


. 
9 


‘STOP / STOP <EXPRESSION> 
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STATEMENT> ::= | CHANGE <FILE DESIGNATOR> 
TO (<DYNAMIC FILE ATTRIBUTE LIST) 


<DYNAMIC FILE 
ATTRIBUTE LIST> ::= — <DYNAMIC FILE ATTRIBUTE> 
| / <DYNAMIC FILE ATTRIBUTED, 
<DYNAMIC FILE ATTRIBUTE LIST> 


<DYNAMIC FILE | | _& 
ATTRIBUTED ::= ~~ <DYNAMIC MULTI-FILE IDENTIFICATION PART> 
<DYNAMIC FILE IDENTIFICATION: PART) 
<DYNAMIC DEVICE PART> 

<DYNAMIC FILE PARITY PART> 
<DYNAMIC TRANSLATION PART> 
<DYNAMIC BUFFERS PART> 

<DYNAMIC VARIABLE RECORD PART> 
<DYNAMIC LOCK PART> 

<DYNAMIC BUFFERS PART> 

<DYNAMIC SAVE FACTOR PART> 
<DYNAMIC RECORD SIZE PART> 
<DYNAMIC RECORDS-PER-BLOCK PART> 
<DYNAMIC REEL NUMBER PART> 
<DYNAMIC NUMBER-OF-AREAS PART> 
<DYNAMIC BLOCKS-PER-AREA PART> 
<DYNAMIC PACK.ID PART> | 
<DYNAMIC ALL-AREAS-AT-OPEN PART) 
<DYNAMIC AREA-BY-CYLINDER PART> 
<DYNAMIC EU.SPECIAL PART> 
<DYNAMIC EU. INCREMENTED PART> 
<DYNAMIC USE.INPUT.BLOCKING PART> 
<DYNAMIC SORTER-STATION PART> 
<DYNAMIC MULTI-PACK PART> 
<DYNAMIC END-OF-PAGE PART> 
<DYNAMIC OPEN-OPTION PART> 
<DYNAMIC REMOTE-KEY PART> 
<DYNAMIC NUMBER-OF-STATIONS PART> 
<DYNAMIC QUEUE-FAMILY-SIZE PART> 
<DYNAMIC FILE TYPE PART> 

<DYNAMIC WORK FILE PART> 

<DYNAMIC LABEL TYPE PART> 


“NNER RRR RRR RRR RR RRR RRR RR RR RRS 


<DYAMIC MULTI-FILE | 7 
IDENTIFICATION PART> ::= MULTI.FILE.1D+ 
<DYNAMIC MULTI-FILE IDENTIFICATION>D 


<DYNAMIC MULTI-FILE 
IDENTIFICATION) ::= <EXPRESSION> 


<DYNAMIC FILE 
IDENTIFICATION PART> ::= FILE. 1D@-<DYNAMIC FILE IDENTIFICATION> 


<DYNAMIC FILE 
IDENTIFICATION) ::= <EXPRESSION> 


<DYNAMIC DEVICE PART> 


<DYNAMIC DEVICE 
SPECIFIER> ::= 


<DYNAMIC FILE 
PARITY PART> ::= 


<DYNAMIC PARITY 
SPECIFIER> ::= 


<DYNAMIC TRANSLATION 
PART> ::= 

<DYNAMIC TRANSLATION 
SPECIFIER> ::= 
<DYNAMIC BUFFERS PART> 


<DYNAMIC NUMBER 
OF BUFFERS> ::= 


<DYNAMIC VARIABLE 
RECORD PART> ::= 
<DYNAMIC VARIABLE 
RECORD SPECIFIER> ::= 
<DYNAMIC LOCK PART> 


<DYNAMIC LOCK 
SPECIFIER>D ::= 


<DYNAMIC SAVE 
FACTOR PART> ::= 


<DYNAMIC SAVE FACTOR> 


<DYNAMIC RECORD 
SIZE PART> ::= 


<DYANMIC RECORD SIZE> 


<DYNAMIC REEL 
NUMBER PART>D ::=.) 


<DYNAMIC REEL NUMBER> 


<DYNAMIC RECORDS- 
PER-BLOCK PART) ::= 
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L¢-eg 
DEVICE @-<DYNAMIC DEVICE SPECIFIER>D 
<EXPRESSION> 
PARI TY#«-<DYNAMIC PARITY SPECIFIER> 
<EXPRESSION> 


TRANSLATION #— 
<DYNAMIC TRANSLATION SPECIFIERD 


<EXPRESSION> 


BUFFERS@-<DYAMIC NUMBER OF BUFFERS> 
<EXPRESSION> 


VARIABLE *@-<DYNAMIC VARIABLE RECORD 
SPECIFIER> 


<EXPRESSION> 


LOCK@#-<DYNAMIC LOCK SPECIFIER> 
<EXPRESSION> 


SAVE@-<DYNAMIC SAVE FACTOR> 


<EXPRESSION> 


RECORD.SIZE@-<DYNAMIC RECORD SIZE> 


<EXPRESSION> 


REEL*-<DYNAMIC REEL NUMBER> 


<EXPRESSION>D 


RECORDS.PER.BLOCK + _ 
<DYNAMIC RECORDS-PER-BLOCK> © 
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<DYNAMIC RECORDS- 
-PER-BLOCK> $32 


<DYNAMIC NUMBER-OF - 
AREAS PART> ::= 


<DYNAMIC NUMBER- 
OF-AREAS>D ;:= 


<DYNAMIC BLOCKS-PER- 


AREA PART) ::= 


<DYNAMIC BLOCKS-PER 
AREA> ::= 


<DYNAMIC PACK.ID PART> 


<BYNAMIC PACK 
IDENTIFICATION> ::= 


<DYNAMIC ALL-AREAS- 
AT-OPEN PART> ::= 
<DYNAMIC ALL-AREAS- 
AT-OPEN SPECIFIERD 
<DYNAMIC AREA-BY 
CYLINDER PART>D ::= 
<DYNAMIC AREA-BY- 
CYLINDER SPECIFIERD 


<DYNAMIC EU.SPECIAL 
PART> ::= 


<DYNAMIC EU.SPECIAL 
SPECIFIERD ::= 


<DYNAMIC EU.DRIVE 
PART> :°= 


<DYNAMIC EU.DRIVE 
~SPECIFIER>D ::= 
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<EXPRESSION> 


NUMBER .OF . AREAS <- | 
<DYNAMIC NUMBER-OF -~AREAS> 


<EXPRESSION> 


BLOCKS.PER.AREA «+ 
<DYNAMIC BLOCKS-PER-AREA> 


<EXPRESSION> 
PACK.ID «— 
<DYNAMIC PACK IDENTIFICATIOND 


<EXPRESSION> 


ALL.AREAS.AT.OPEN «— 
<DYNAMIC ALL-AREAS-AT-OPEN SPECIFIER> 


<EXPRESSION 


AREA.BY.CYLINDER # 
<DYNAMIC AREA-BY-CYLINDER SPECIFIER>D 


<EXPRESSION> 


EU.SPECIAL + 

<DYNAMIC EU.SPECIAL SPECIFIER> 
EU.SPECIAL + 

<DYNAMIC EU.SPECIAL SPECIFIER), 
EU.DRIVE < 

<DYNAMIC EU.DRIVE PART> 


<EXPRESSION> 
EU.ORIVE*-<DYNAMIC EU.DRIVE SPECIFIER> 


<EXPRESSION> 


<DYNAMIC EU. 
INCREMENTED PART> ::= 


<DYNAMIC EU. INCREMENTED 
SPECIFIER> ::= 


<DYNAMIC EU. 
INCREMENT SPECIFIER> ::= 


<DYNAMIC USE.INPUT. 
BLOCKING PART> ::= 
<DYNAMIC USE.INPUT. 
BLOCK ING SPECIFIER> ::= 
<DYNAMIC SORTER STATION 
PART> ::= 

<DYNAMIC SORTER 

STATION SPECIFIER>D ::= 
<DYNAMIC MULTI- 

PACK PART): := 


<DYNAMIC MULTI- 
PACK SPECIFIER>D 


<DYNAMIC END-OF - 
PAGE PART> ::= 


<DYNAMIC END-OF - 
PAGE SPECIFIER> 


<DYNAMIC OPEN- 
OPTION PART>: := 


<DYNAMIC OPEN- 
OPTION SPECIFIERD:: 


<DYNAMIC REMOTE- 
KEY PART>::= | 


<DYNAMIC REMOTE- 
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EU. INCREMENTED < 

<DYNAMIC EU. INCREMENTED SPECIFIER>D 
EU. INCREMENTED <— 

<DYNAMIC EU. INCREMENTED SPECIFIERD, 
EU.INCREMENT <— 

<DYNAMIC EU. INCREMENT SPECIF IER> 


<EXPRESSION>D 
<EXPRESSION> 


USE . INPUT .BLOCKING <— 
<DYNAMIC USE.INPUT.BLOCKING SPECIFIER> 


<EXPRESSION> 


SR.STATION 
<DYNAMIC SORTER STATION SPECIFIER> 


<EXPRESSION> 


MULT I-PACK <- 
<DYNAMIC MULTI-PACK SPECIFIER> 


<EXPRESSION> 


END.OF .PAGE .ACTION + | 
<DYNAMIC END-OF-PAGE SPECIFIER> 


<EXPRESSION> 


OPEN. OPTION + 


<DYNAMIC OPEN.OPTION SPECIFIER>D 


<EXPRESSION> 


REMOTE-KEY <~ 
<DYNAMIC REMOTE-KEY SPECIFIERD 
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KEY SPECIFIERD::= 


_<DYNAMIC NUMBER-OF- 
STATIONS PART)::= 


<DYNAMIC NUMBER-OF - 
STATIONS SPECIFIER>::= 


<DYNAMIC Se “FAMILY 


SIZE PART): 
<DYNAMIC QUEVE- 
FAMILY-SIZE>::= 
<DYNAMIC FILE 

TYPE PART): := 
<DYNAMIC FILE 

TYPE SPECIFIER>::= 
<DYNAMIC WORK 

FILE PART>::= 
<DYNAMIC WORK 

FILE SPECIFIERD::= 
<DYNAMIC LABEL 
TYPE PART>::= 
<DYNAMIC LABEL 
TYPE SPECIFIER>D::= 
<ZIP STATEMENT> ::= 


<SEARCH STATEMENT > 


<SEARCH PART) ::= 


<SEARCH OBJECT> :: 


<SEARCH RESULT> :: 


<SEARCH RESULT MODE> 


~ 


1‘7-3e 


<EXPRESS I OND 


-NUMBER-OF-STATIONS + 


<DYNAMIC NUMBER-OF-STATIONS SPECIFIERD> 
<EXPRESSION> 


QUEVE-FAMILY-SIZE «+ 
<DYNAMIC QUEUE-FAMILY-SIZE> 


<EXPRESSION> 


FILE.TYPE « 
<DYNAMIC FILE TYPE SPECIFIERD 


<EXPRESSION> 


WORK .F ILE 
<DYNAMIC WORK FILE SPECIFIER> 


<EXPRESSIOND 


LABEL TYPE < 
<DYNAMIC LABEL TYPE SPECIFIER> 


<EXPRESSION> 
ZIP <EXPRESSION> 


<SEARCH PART> 

SEARCH PART>; <FILE MISSING PART> 
<SEARCH PART>; <FILE LOCKED PART> 
<SEARCH PART>; <FILE MISSING PART> 
<FILE LOCKED PART> : 


SEARCH.DIRECTORY (<SEARCH OBJECT>, 
<SEARCH RESULT>,<SEARCH RESULT MODE>) 


~ <ADDRESS GENERATOR> 


<ADDRESS GENERATOR> 


BIT / CHARACTER 


LISS 


<FILE MISSING PART> ;::= ON FILE.MISSING <EXECUTABLE STATEMENT > 
<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT> 


<ACCESS FILE HEADER 
STATEMENT> ::= <ACCESS FILE HEADER PART>; 
/ <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
/ <ACCESS FILE HEADER PART>; 
<FILE LOCKED PART> 
/ <ACCESS FILE HEADER PART); 
<FILE MISSING PART> 
<FILE LOCKED PART > 


<ACCESS FILE HEADER 
PART> ::= | READ.FILE.HEADER 
(<FILE NAME>, <DESTINATION FIELD>) 
/ WRITE.FILE.HEADER 
(<FILE NAME>, <SOURCE FIELD>) 


<FILE NAME> ::= <ADDRESS GENERATOR> 


<DESTINATION FIELD> <ADDRESS GENERATOR> 


<SOURCE FIELD> ::= <ADDRESS GENERATOR> 


<FILE MISSING PART> ON FILE.MISSING <EXECUTABLE STATEMENT > 


<FILE LOCKED PART> ::= ON FILE.LOCKED <EXECUTABLE STATEMENT > 


<SEND STATEMENT > 


<SEND PART>; 
/ <SEND PART>; <QUEUVE FULL PART> 
<SEND PART>; <INVALID REQUEST PART> 
/ <SEND PART>; <QUEUE FULL PART> | 
<INVALID REQUEST PART> 


“~ 


<SEND PART> ::= SEND <MESSAGE SOURCE> TO <QUEUE > 


<MESSAGE SOURCE > <ADDRESS GENERATOR> 


<QUEUE> i: _<EXPRESSION> 

{QUEUE FULL PART> ::= ON Q.FULL <EXECUTABLE STATEMENT > 

<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT? 
<RECEIVE STATEMENT? ::= <RECEIVE PART); 


/ <RECEIVE PART>; <QUEVE EMPTY PART> 

/ “RECEIVE PART>; <INVALIDO REQUEST PART> 

/ SRECEIVE PART>; <QUEUE EMPTY PART> 
<INVALID REQUEST PART> 


CRECEIVE PART> ::= RECEIVE <MESSAGE DESTINATION) 
| FROM <QUEUE > 
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<MESSAGE DESTINATIOND> <ADDRESS GENERATOR> 


a a See oe | 
QUEUE. EMPTY PART> ::= ON Q. EMPTY EXECUTABLE STATEMENT > 


<INVALID REQUEST PART> ::= ON INVALID.REQUEST <EXECUTABLE STATEMENT> 


<ARRAY PAGE TYPE — a . 
STATEMENT> ::= <ARRAY PAGE TYPE DESIGNATOR) 
_ = (<PAGED ARRAY NAME>, <PAGE NUMBER>) 


<ARRAY PAGE TYPE 
DESIGNATOR> ::= MAKE .READ.ONLY 
/ MAKE .READ.WRITE 


<PAGED: ARRAY NAME> <IDENTIFIER> 
<PAGE NUMBER> ::= <EXPRESSION> 


<COROUTINE STATEMENT): := <COROUTINE ENTRY STATEMENT > 
/ <COROUTINE EXIT STATEMENT> 


<COROUT INE 
ENTRY STATEMENT >: : 


ENTER.COROUT INE ies 
(<COROUT INE TABLE SPECIFIER>) 


<COROUT INE 
TABLE SPECIFIERD::= “ADDRESS GENERATOR> 
<COROUT INE 


~ EXIT STATEMENT): := ~ » EXIT. COROUTINE 
| ; - 4 (<COROUTINE TABLE SPECIFIER>) 


WAIT (<NUMBER OF TENTHS OF SECONDS >) 
/ WAIT (<NUMBER OF TENTHS OF SECONDS>, 
DC.10.COMPLETE) 
/ WAIT (,00.10.COMPLETE) 


<WAIT STATEMENTD:: 


APPENDIX II: 


RESERVED AND SPECIAL WORDS 
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THE FOLLOWING IS A LIST OF RESERVED WORDS IN SDL, COMPLETE AS OF 
1973. THESE WORDS MAY ONLY BE USED AS RESERVED WORDS. 


NOV. 


ACCEPT 


CASE 


CHANGE .STACK.SIZES 


CLOSE 
DECLARE 
DISPLAY 
DYNAMIC 
ELSE 
EQL 
FILE 
FIXED 
FORWARD 


LEQ 


SEARCH. DIRECTORY 
SEGMENT . PAGE 
SLEEP — 

SUBBIT 

THEN 

UNDO 

VARY ING 

WAIT 

ZIP 


AND 
BIT 


CAT 
CHARACTER 


DECREMENT 
DO 


END 

EXIT .COROUT INE 
FILLER 
FORMAL 
FROM 

GTR 
INTRINSIC 
LOCK 

MOD 

NOT 

ON 


PROCEDURE 


READ.FILE.HEADER 


WRITE 


*** DESCRIBED IN APPENDIX X: DC SDL 


AS 
BUMP 


CHANGE 
CLEAR 


DEF INE 
DUMMY 


ENTER. COROUT INE 
EXOR 

FINI 
FORMAL . VALUE 


LSS 


OPEN 


RECEIVED 

RETURN.AND.ENABLE. INTERRUPTS 
SEGMENT 

SKIP 

STOP 


TRANSFER.MESSAGE *** 


WRITE .FILE.HEADER 


© 1973, 1974 Burroughs - DO NOT REPRODUCE 


18-e 


THE FOLLOWING IS A LIST OF SPECIAL WORDS IN SDL, COMPLETE AS OF 
NOV. 1973. EACH SPECIAL WORD HAS A PARTICULAR MEANING, HOWEVER 
IT MAY BE USED AS AN IDENTIFIER. IN THAT CASE, IT LOSES ITS 
SPECIAL SIGNIFICANCE IN SDL. : | | % 


ACCESS .FILE. INFORMATION ALLOCATE *** | 

BASE .REGISTER | BINARY 

COMMUNICATE COMPILE .CARD. INFO 
CONTROL .STACK.BITS CONTROL .STACK. TOP 
CONSOLE .SWITCHES CONV | 
CONVERT 

DATA.ADDRESS DATE 
DC.INITIATE.10 *, *** DC.WAIT *, ***# 
DC.WRITE #***# DEBLANK 

DEC IMAL DELIMITED. TOKEN 
DESCRIPTOR DE.ALLOCATE ***# 
DISABLE . INTERRUPTS DISABLE.QUEUE *** 
DISPATCH DISPLAY .BASE 

DUMP DUMP .FOR.ANALYSIS 
DYNAMIC .MEMORY .BASE 

ENABLE. INTERRUPTS ENABLE.QUEUE *** 
ERROR . COMMUNICATE EVALUATION.STACK. TOP 
EXECUTE 

FETCH 3 FETCH. COMMUNICATE .MSG.PTR 
FLUSH *** FREEZE.PROGRAM | 
HALT HARDWARE .MONITOR *** 
HASH .CODE 

INITIALIZE.VECTOR INSERT *** 
INTERROGATE. INTERRUPT .STATUS 

LENGTH LIMIT.REGISTER 
LOCATION , 

MAKE .DESCRIPTOR | MAKE .READ.ONLY 
MAKE .READ.WRITE MCS.COMMUNICATE *** 
MESSAGE.INFO **#* M.MEM.SIZE 

NAME .OF .DAY NAME .STACK. TOP 
NEXT. ITEM NEXT. TOKEN | 
NOTRACE | 

OVERLAY 

PARITY .ADDRESS : PREVIOUS.ITEM 
QUEUE.INFO *** 

READ.CASSETTE : READ .FPB 
READ.OVERLAY REINSTATE 

REMOVE *** | | RESTORE 

REVERSE .STORE 

SAVE .STATE SEARCH.LINKED.LIST 
SEARCH. SERIAL.LIST S.MEM.SIZE 

SEARCH. SDL .STACKS > | 
SORT SORT .FILE.FIXUP 
SORT .RE TURN SORT .SE ARCH 

SORT .STEP.DOWN SORT . SWAP 


SORT . UNBLOCK SWAP 


18-3 


SPO. INPUT .PRESENT | 
THAW .PROGRAM THREAD. VECTOR 


TIME . TRACE 
VALUE .DESCRIPTOR 
WRITE .FPB WRITE .OVERLAY 


* TEMPORARY - TO BE REMOVED IN THE NEAR FUTURE 


** SEE APPENDIX IV 


*¥** DESCRIBED IN APPENDIX X: DC SDL 
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APPENDIX III: SDL CONTROL CARD OPTIONS 


EVERY SDL CONTROL CARD MUST HAVE A "S$" IN COLUMN ONE. COLUMNS 
73-80 MAY BE USED AS A SEQUENCE FIELD. NOTE THAT ONCE AN OPTION 
HAS BEEN TURNED ON (OFF), IT WILL REMAIN ON (OFF) UNTIL 
EXPLICITLY TURNED OFF (ON). 


CONTROL CARD OPTIONS FOR B5500 


<CONTROL CARD> ::= $ <CONTROL STATEMENT > 


<CONTROL STATEMENT> ::= <CONTROL OPTION LIST> 
/ <VOID OPTION> 


<CONTROL OPTION LIST> ::= <CONTROL OPTION> 
/ <CONTROL OPTION> 
<CONTROL OPTION LIST> 


<CONTROL OPTION>D ::= <CONTROL OPTION WORD> 
/ NO <CONTROL OPTION WORD> 
/ <DEBUG OPTION> 
/ <SEQUENCE OPTION> 
/ <PAGE OPTION> 
/ “UPDATE OPTION> 
/ <STACK SIZE LIST> 
/ <INTERPRETER OPTION> 
<CONTROL OPTION WORD> ::= LIST / LISTALL / SINGLE / SGL 
/ DOUBLE / CODE / CONTROL / NEW 
/ CHECK / MAP / XMAP / DETAIL 
/ AMPERSAND / SIZE 
/ HEX / PROFILE / PPROF ILE 
/ NODUPLICATES 
<DEBUG OPTION> ::= DEBUG <DEBUG PARAMETER> 
<DEBUG PARAMETER> = <EMPTY> 
/ <NUMBER> 
<NUMBER> ::= | <UNSIGNED INTEGER, 8 OR LESS DIGITS> 
<SEQUENCE OPTION> = NO SEQ 


/ SEQ <SEQUENCE PARAMETERS> 


<SEQUENCE PARAMETERS> ::= <BASE > 
/ <BASE> <INCREMENT> 
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<BASE> ::= <NUMBER> 
<INCREMENT> ::= <NUMBER> 
<PAGE OPTION> ::= | PAGE 
<UPDATE OPTION> ::= UPDATE 


<STACK SIZE LIST> ::= <STACK SIZE DESIGNATOR> 
: / <STACK SIZE DESIGNATOR> 
<STACK SIZE LIST> 


<STACK SIZE DESIGNATOR> ::= <STACK DESIGNATOR> <STACK SIZE> 
<STACK DESIGNATOR> ::= VSSIZE / NSSIZE / ESSIZE 

/ CSSIZE / PPSSIZE / DYNAMICSIZE 
<STACK SIZE> ::= | <NUMBER > 
<VOID OPTION>D ::= VOID <TERMINATING SEQUENCE FIELD> 


<TERMINATING SEQUENCE | 
FIELD> ::= <EMPTY> 
/ <EXACTLY 8 CHARACTERS> 


<INTERPRETER OPTIOND ::= INTERPRETER <INTERPRETER NAME> 
<INTERPRETER NAME> <INTERPRETER. MF ID> 
/ <INTERPRETER MFID> <SLASH> 


<INTERPRETER IDENTIFIERD 
/ <SLASH> <INTERPRETER IDENTIFIERD | 


<INTERPRETER MFID> ::= <IDENTIFIER> 

< INTERPRETER 

IDENTIFIER> ::= <IDENTIFIERD 

SEMANTICS: 

Bice LISTS SDL SOURCE INPUT WHICH HAS BEEN COMPILED. 
"NO LIST" WILL TURN OFF “"LISTALL" CIF ALSO 
SPECIFIED) AS WELL AS "LIST". 

LISTALL LISTS ALL SDL SOURCE INPUT (WHETHER OR NOT 


CONDITIONALLY EXCLUDED). "LISTALL" WILL TURN ON 
"LIST". BUT, "NO LISTALL" WILL NOT TURN OFF 
"IST". , 


SINGLE (SGL) SINGLE SPACE LISTING WHEN PRINTING.| 


DOUBLE 
CODE 
CONTROL 
NEW 

MAP 

XMAP 
DETAIL 
AMPERSAND 


SIZE 


HEX 


PROF ILE 
PPROF ILE 
DEBUG 
SEQ 


CHECK 


NODUPLICATES 


NO SEQ 


PAGE 


UPDATE 


VSSIZE 


NSSIZE 


ESS!IZE 


CSo12e 


Ig=35 


DOUBLE SPACE LISTING WHEN PRINTING. 
PRINT GENERATED CODE. 

PRINT CONTROL CARDS. 

CREATE NEW SOURCE FILE. 

PRINT CODE MAPPING INFORMATION. 


CREATE EXTENDED CODE MAP FILE FOR POST 
COMPILATION ANALYSIS AND PRINTING. 


PRINT EXPANSION OF DEFINE INVOCATIONS. 
PRINT THOSE AMPERSAND CARDS WHICH ARE EXAMINED. 
PRINT SEGMENT SIZES BY NAME AT END OF COMPILE. 


ADDRESSES PRINTED IN HEXADECIMAL WHEN "CODE" OR 
"MAP" OPTIONS ARE USED. 


SEE APPENDIX IV 


SEE APPENDIX IV 


COMPILER DEBUG USE ONLY. 
RESEQUENCE OUTPUT FILE. 


THE SOURCE INPUT WILL BE CHECKED FOR SEQUENCE 
ERRORS. 


NEWLY DECLARED IDENTIFIERS WILL NOT BE CHECKED 
FOR UNIQUENESS. THE USER MUST GUARANTEE THAT 
THERE ARE NO DUPLICATES BEFORE USING THIS OPTION. 
THIS SHOULD BE USED FOR LONG PROGRAMS ONLY. 

TURNS OFF THE "SEQ" OPTION. 

PAGE EJECT, IF LISTING. 

THE PRIMARY SOURCE IS -A TAPE OR DISK FILE WHICH 
WILL HAVE THE CARDS FROM THE CARD READER MERGED 
INTO IT. 

VALUE STACK SIZE 

NAME STACK SIZE 

EVALUATION STACK SIZE. 


CONTROL STACK SIZE 
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PPSSIZE 
DYNAMICSIZE 


NO 


VOID 


INTERPRETER 


NOTES AND REST 
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PROGRAM POINTER STACK SIZE 
AMOUNT OF CORE USED FOR PAGED ARRAY PAGES 


"NO" PRECEDING AN OPTION (WHICH ALLOWS IT) WILL 
TURN THAT OPTION OFF. 


THE "VOID" CARD WILL VOID IMAGES ON THE PRIMARY 
INPUT FILE WHICH HAVE SEQUENCE FIELDS WHICH ARE 
LESS THAN OR EQUAL TO THE <TERMINATING SEQUENCE 
FIELD> APPEARING ON THE "VOID" CARD. IF THE 
<TERMINATING SEQUENCE FIELD> IS MISSING, THEN THE 
ONLY SOURCE IMAGE VOIDED IS THAT WITH THE SAME 
SEQUENCE FIELD AS THE "VOID" CARD. NOTE THAT THE 
"VOID" CARD MAY DELETE IMAGES IN THE SECONDARY 
(CARD) FILE. 


CHANGE INTERPRETER ID AND/OR INTERPRETER MF ID. 


RICTIONS: 


ESS OTHERWISE SPECIFIED ( THROUGH THE 


"UPDATE" OPTION), THE PRIMARY SOURCE OF INPUT 


THE CARD READER. ONCE "UPDATE" HAS BEEN 
CIFIED, IT IS NOT POSSIBLE TO AGAIN 


INDICATE "CARDS ONLY". 


1. UNL 
IS 
SPE 
e. TF 
OPT 


NO CONTROL CARDS ARE USED, THE DEFAULT 
IONS ARE LIST, DOUBLE, AND AMPERSAND; ALL 


INPUT WILL BE FROM CARDS. 


Si OPT 


IONS ARE TURNED OFF ONLY THROUGH THE 


APPEARANCE OF "NO" FOLLOWED BY THE OPTION 
WORD. NOTE THAT "NO" AND THE OPTION WORD ARE 
SEPARATED BY AT LEAST ONE BLANK. 


CONTROL CARD OPTIONS FOR B1700 


<CONTROL CARD> 


73 $ <CONTROL STATEMENT > 


<CONTROL STATEMENT> ::= <CONTROL OPTION LIST> 


<CONTROL OPTION LIST> 


/ <VOID OPTION> 


<CONTROL OPTION>D — 
/ <CONTROL OPTION>D 
<CONTROL OPTION LIST> 


<CONTROL OPTION) ::= <CONTROL OPTION WORD) 
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NO <CONTROL OPTION WORD> 
<DEBUG OPTION> 
<SEQUENCE OPTION> 

<PAGE OPTION>D 

<MERGE OPTION> 

<STACK SIZE LIST> 
<INTERPRETER OPTION> 
<INTRINSIC OPTIOND> 
<RECOMPILE OPTION> 

SIZE / FORMAL.CHECK 


~ NNR SRS 


<CONTROL OPTION WORD> ::= LIST / LISTALL / SINGLE 

SGL / DOUBLE / CODE 

CONTROL / NEW / SUPPRESS 

XMAP / CHECK / PROFILE / PPROFILE 
DETAIL / AMPERSAND / NO.DUPLICATES 
NO.SOURCE / MONITOR | 
XREF / XREF.ONLY / EXPAND.DEF INES 


~~ NO 


<DEBUG OPTIOND>D ::= DEBUG <NUMBER> 
<NUMBER> ::= <UNSIGNED INTEGER, 8 OR LESS DIGITS> 


<SEQUENCE OPTIOND> ::= NO SEQ 
/ SEQ <SEQUENCE PARAMETERS > 


<SEQUENCE PARAMETERS> ::= <BASE > 
/ <INCREMENT> 
/ <BASE> <INCREMENT > 


<BASE> ::= | <NUMBER > 

<INCREMENT>: := + <NUMBER> 

<PAGE OPTION>D ::= PAGE 

<MERGE OPTIOND ::= MERGE 

<STACK SIZE LIST>D ::= <STACK SIZE DESIGNATOR> 


/ <STACK SIZE DESIGNATOR> 
<STACK SIZE LIST> 


<STACK SIZE 


DESIGNATOR> ::= <STACK DESIGNATOR> <STACK SIZE> 
<STACK DESIGNATOR> ::= VSSIZE / NSSIZE / ESSIZE 
/ CSSIZE / PPSSIZE / DYNAMICSIZE 
<STACK SIZE> ::5 <NUMBER> 
<VOID OPTION> ::= VOID <TERMINATING SEQUENCE FIELD> 


<TERMINATING SEQUENCE 
PIELD> 22= | <EMPTY> 
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/ <EXACTLY 8 CHARACTERS> 


<INTERPRETER OPTIOND ;:= INTERPRETER <INTERPRETER NAME > 


<INTERPRETER NAME> ::= <INTERPRETER MULTI-FILE IDENTIFICATION> 


/ <INTERPRETER MULTI-FILE IDENTIFICATION> 
<SLASH> 
<INTERPRETER IDENTIFICATION> 


<INTERPRETER MULTI-FILE 


IDENTIFICATION>D ::= <IDENTIFIER> 
< INTERPRETER 

IDENTIFICATION> ::= <IDENTIFIERD 
<INTRINSIC OPTIOND ::= INTRINSIC 


<INTRINSIC FAMILY NAME> 


<INTRINSIC FAMILY 


NAME> ::= 


<IDENTIF IER> 


<RECOMPILE OPTION>::= CREATE .MASTER 


/ RECOMPILE 


SEMANTICS IN ALPHABETICAL ORDER: 


AMPERSAND 


CHECK 


CODE 

~ CONTROL 
CREATE .MASTER 
CSSIZE 

DEBUG 

DETAIL 

DOUBLE 
DYNAMICSIZE 
ESSIZE 


FORMAL . CHECK 


PRINTS THOSE AMPERSAND CARDS WHICH ARE EXAMINED. 


THE SOURCE INPUT WILL BE CHECKED FOR SEQUENCE 
ERRORS. 


PRINTS GENERATED CODE. 

PRINTS CONTROL CARDS. 

SEE APPENDIX VIII. 

CONTROL STACK SIZE. 

COMPILER DEBUG USE ONLY. 

PRINTS EXPANSION OF DEFINE INVOCATIONS. 


DOUBLE SPACE LISTING WHEN PRINTING. 


AMOUNT OF MEMORY USED FOR PAGED ARRAY PAGES. 


EVALUATION STACK SIZE. 


PROCEDURE ACTUAL PARAMETERS AND VALUES RETURNED 
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FROM TYPED PROCEDURES WILL BE CHECKED 
RESPECTIVELY AGAINST THEIR CORRESPONDING FORMAL 
PARAMETERS AND PROCEDURE FORMAL TYPES. 


EXPAND.DEFINESCAUSES DEFINE EXPANSIONS TO BE CROSS-REFERENCED 
(USED IN CONJUNCTION WITH XREF OR XREF.ONLY). 


INTERPRETER CHANGES THE INTERPRETER ID OR MFID, OR BOTH. 


INTRINSIC CHANGES THE FAMILY NAMES OF INTRINSICS TO BE 
USED. 

LIST LISTS THE SOURCE INPUT WHICH WAS COMPILED. "NO 
LIST" WILL ALSO TURN OFF "LISTALL". 

LISTALL LISTS ALL SDL SOURCE INPUT (WHETHER OR NOT 
CONDITIONALLY EXCLUDED). "LISTALL" TURNS ON 
"LIST", BUT "NO LISTALL" WILL NOT TURN OFF 
gt ue 

MERGE THE PRIMARY SOURCE FILE IS ON TAPE OR DISK WHICH 
WILL HAVE THE CARDS, FROM THE CARD READER, MERGED 
WITH IT. | | 

MONITOR SEE APPENDIX IX: THE SDL MONITOR FACILITY 

NEW CREATES A NEW SOURCE FILE. 

NO "NO" PRECEDING AN OPTION (WHICH ALLOWS IT) WILL 


TURN THAT OPTION OFF. 


NO.DUPLICATES NEWLY DECLARED IDENTIFIER WILL NOT BE CHECKED FOR 
UNIQUENESS. THE PROGRAMMER MUST GUARANTEE THAT 
THERE ARE NO DUPLICATES BEFORE USING THIS OPTION. 
IT WILL REDUCE COMPILE TIME FOR LARGE PROGRAMS 


ONLY. 
NO SEQ TURNS OFF THE "SEQ" OPTION. 
NO. SOURCE PROGRAM SOURCE IMAGES WILL NOT BE SAVED, THEREBY 


SHORTENING THE COMPILER WORK FILE. NO SOURCE 
LISTING WILL BE POSSIBLE WHEN THIS OPTION IS 
SPECIFIED. THIS SHOULD BE USED WITH LONG PROGRAMS 


ONLY. 
NSSIZE NAME STACK SIZE. 
PAGE PAGE EJECT IF LISTING. 
PPSSIZE » PROGRAM POINTER STACK SIZE. 
RECOMP ILE SEE APPENDIX VIII 
SEG RESEQUENCES OUTPUT FILE. 
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SINGLE (SGL) 
SIZE 


SUPPRESS 


VOID 


VSSIZE 


XMAP 


XREF 


XREF .ONLY 
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SINGLE SPACES LISTING W4EN PRINTING. 
PRINTS SEGMENT SIZES BY NAME AT END OF COMPILE. 


SUPPRESSES WARNING MESSAGES. TO SUPPRESS SEQUENCE 
ERROR MESSAGES, TURN OFF "CHECK". 


THE VOID OPTION WILL VOID RECORDS IN THE PRIMARY 
FILE WHICH HAVE SEQUENCE FIELDS LESS THAN OR 
EQUAL TO THE <TERMINATING SEQUENCE FIELD>. IF THE 
FIELD IS OMITTED, ONLY THE RECORD WITH THE 
SEQUENCE NUMBER CORRESPONDING TO THE "VOID CARD" 
SEQUENCE NUMBER WILL BE DELETED. THE VOID OPTION 
WILL NOT DELETE IMAGES IN A_ SECONDARY (CARD) 
SOURCE FILE. 


VALUE STACK SIZE. 


CREATES AN EXTENDED CODE MAP FILE FOR POST 
COMPILATION ANALYSIS. 


PRODUCES A CROSS-REFERENCE LISTING OF THE 
PROGRAM. : 


PRODUCES A CROSS-REFERENCE LISTING AND THEN 


TERMINATES THE COMPILATION. 


NOTE: ALL CONTROL CARDS MAY USE "&" IN COLUMN 1 IN 
— PLACE OF "$". THOSE CONTROL CARDS WITH "&" IN 
COLUMN 1 WILL BE PERMANANTLY PLACED IN A_ NEW 
SOURCE FILE WHENEVER ONE IS MADE. THEY MAY 
ALSO BE CONDITIONALLY INCLUDED OR EXCLUDED 

DURING COMPILATION. 
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APPENDIX IV: PROGRAMMING OPTIMIZATION 


THE FOLLOWING CONTROL CARD OPTIONS (SEE APPENDIX III) CAN BE 
USEFUL TO THE PROGRAMMER WHO WISHES TO DETERMINE THE MOST TIME 
CONSUMING PART(S) OF HIS PROGRAM. THE PURPOSE OF THESE CONTROL 
OPTIONS IS TO POINT OUT THE PARTS OF THE PROGRAM WHICH ARE THE 
MOST TIME CONSUMING AND/OR HEAVILY USED. 


WHEN COMPILING ON THE B5500, IF ANY OF THESE CONTROLS ARE USED, 
THE FOLLOWING CARD MUST APPEAR IN THE PROCEDURE SECTION OF THE 
PROGRAM: | 


& LIBRARY SDLPROFILE / ARRAYPRINTER 


IN ADDITION, THERE MUST BE A CLOSE ON THE PRINTER BEFORE "FINI" 
OR ANY <STOP STATEMENT>. 


PPROF ILE ESTABLISHES A DYNAMIC ARRAY, EACH ELEMENT OF 
WHICH IS A COUNTER FOR ONE PROCEDURE. THE INDEX 
NUMBER FOR EACH PROCEDURE APPEARS IN THE LISTING 
FOLLOWING THE <PROCEDURE IDENTIFIER>. THE VALUE 
OF THE COUNTER WILL REFLECT THE NUMBER OF 
ENTRANCES TO THE PROCEDURE IN QUESTION. THOSE 
WITH THE HIGHEST COUNTERS SHOULD BE INVESTIGATED 
WITH THE "PROFILE" OPTION. 


PROF ILE ESTABLISHES A DYNAMIC ARRAY, EACH ELEMENT OF 
WHICH IS A COUNTER FOR ONE BRANCHING OPERATION | 
(<DO GROUP>, <IF STATEMENT>, OR <CASE STATE- 
MENT>). THE INDEX INTO THE ARRAY WILL APPEAR IN 
THE LISTING FOLLOWING THE STATEMENT IN QUESTION. 
THOSE BRANCHES WITH THE HIGHEST COUNTER VALUES 
ARE THE BRANCHES MOST HEAVILY USED. 


HARDWARE MONITOR 


<HARDWARE MONITOR 
DESIGNATOR>D ::= HARDWARE .MONITOR (<EXPRESSION> ) 


THE B1700 IS EQUIPPED WITH A HARDWARE MONITOR WHICH MAY BE 
MANUALLY WIRED TO SUIT THE NEEDS OF THE PROGRAMMER. THE DEVICE 
CAN BE USEFUL AS A TIMER OR A COUNTER TO MONITOR PROGRAM 
EFFICIENCY. 
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THE LOW-ORDER 8 BITS OF THE <EXPRESSION> IS USED AS THE 
LOW-ORDER 8 BITS OF THE M-INSTRUCTION "MONITOR". FOR WIRING 
INSTRUCTIONS OF THE HARDWARE DEVICE SEE "COMPUTER PERFORMANCE 
‘MONITOR II: SYSTEM SUMMARY MANUAL". | 
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APPENDIX V: SYSTEM CONTROL CARDS 


THERE ARE TWO BASIC FORMATS FOR THE SYSTEM CONTROL CARDS. THEY 
ARE AS FOLLOWS: 


A. THE PRIMARY SOURCE FILE IS ON CARDS. 


? COMPILE <PROG ID>/<USER ID> WITH | SDL LIBRARY| <ACCT INFOD 
MSDL | | SYNTAX 


* ? FILE NEWTAPE = <FILE MFID>/<FILE ID> | SERIAL 
| TAPE 
? DATA <USER ID> 


* § NEW 
<SDL PROGRAM> 
FINI 
? END 
* THESE CARDS MUST BE INCLUDED IF THE FILE IS TO 


BE SAVED ON TAPE OR DISK. 


B. THE PRIMARY SOURCE FILE IS ON TAPE OR DISK, AND THE 
SECONDARY SOURCE FILE IS ON CARDS. 


? COMPILE <PROG ID>/<USER ID> WITH | SDL LIBRARY; <ACCT INFO> 
MSDL || SYNTAX 


? FILE TAPE = <PROG ID>/<USER ID> | SERIAL 
| TAPE 
* ? FILE NEWTAPE = <FILE MFID>/<FILE ID> | SERIAL 
TAPE 
? DATA <USER ID> 
$ UPDATE 
$ NEW : 
<PATCHES TO SDL PROGRAM> 


<9-S CARD> (SEQUENCE FIELD IS 99999999) 
? END 


* THESE CARDS MUST BE INCLUDED IF THE UPDATED 
FILE IS TO BE SAVED ON TAPE OR DISK. 
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THE " " SPECIFIES ANY INVALID CHARACTER. THE "COMPILE" CARD 
SHOULD SPECIFY "SDL" IF THE PROGRAM IS TO BE RUN ON ENGINEERING 
SYSTEM #2, OR "MSDL" IF MARKETING SYSTEM #2. NOTE THAT THIS IS 
A TEMPORARY DISTINCTION AND IS SUBJECT TO CHANGE. 


IF OBJECT CODE IS TO BE GENERATED, THE "LIBRARY" OPTION SHOULD 
BE USED. THE "SYNTAX" OPTION WILL CHECK ONLY FOR PUTAS ERRORS 
AND GENERATE A SOURCE LISTING. 


THE FORMAT FOR THE <ACCT INFO> IS AS FOLLOWS: 


—#<4-DIGIT COST CENTER> <1 SPACE> <5-DIGIT PROJECT NUMBER > 


AN EXAMPLE "COMPILE CARD" IS: 


? COMPILE MYPROGRAM/SMITH WITH SDL LIBRARY #1234 56789 


TO DUMP THE OBJECT CODE TO CARDS, THE FOLLOWING CONTROL CARDS 
SHOULD BE PLACED JUST BEFORE THE END-CARD: © 


? EX SDL/DUMPER <ACCT INFO>D | 

? FILE CODEFILE = <PROG ID>/<USER ID>D | SERIAL 
oa peas 

? COMMON = 9 hg. See 


SDL FILE NAMES 


CARD © CARD INPUT FILE 

TAPE PRIMARY SOURCE FILE IF $ UPDATE IS USED 
NEWT APE NEW SOURCE FILE IF $ NEW IS USED 

LINE PRINTER FILE 


SYSTEM CONTROL CARDS FOR B1700 


THERE ARE TWO BASIC DECK SETUP FORMATS. THEY ARE: 


A. THE PRIMARY SOURCE FILE IS ON CARDS. 


? <SYSTEM COMPILE CARD> 
* ? <FILE EQUATE CARD FOR FILE "NEWSOURCE"> 
? DATA CARDS . 


* $ NEW 
<SDL PROGRAM> 
FINI 
? END 
- IF THE PRIMARY SOURCE FILE IS TO BE SAVED ON 


TAPE OR DISK, THESE CARDS MUST BE INCLUDED. 


B. THE PRIMARY SOURCE FILE IS ON TAPE OR DISK. 


<SYSTEM COMPILE CARD> 

<FILE EQUATE CARD FOR FILE "SOURCE"> 

<FILE EQUATE CARD FOR FILE "NEWSOURCE "> 
DATA CARDS 

MERGE 

NEW 

<PATCHES TO SDL PROGRAM> 

<9-S CARD> (SEQUENCE FIELD CONTAINS 99999999) 
? END 
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* IF THE MERGED FILE IS TO BE SAVED, THESE CARDS 
MUST BE INCLUDED. 


NOTE REFER TO THE B1700 MCP DOCUMENTATION FOR’ THE 
EXACT FORMAT OF THE "COMPILE" AND "FILE 
EQUATE" CARDS. 


SDL FILE NAMES 


CARDS CARD INPUT FILE 

SOURCE PRIMARY SOURCE FILE IF “S$ MERGE" IS USED 
NEWSOURCE UPDATED SOURCE FILE IF "$ NEW" IS USED 
LINE LINE PRINTER FILE 
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APPENDIX VI: CONDITIONAL COMPILATION 


THE CONDITIONAL COMPILATION FACILITY ALLOWS THE USER TO 
SELECTIVELY COMPILE BLOCKS OF CODE WITHOUT THE NECESSITY OF 
PHYSICALLY ADDING OR REMOVING RECORDS. 


<CONDITIONAL INCLUSION> RECORDS ARE ALWAYS WRITTEN TO A NEW FILE 
(IF ONE IS CREATED), WHETHER OR NOT THEY ARE COMPILED. IF 

CONDITIONAL COMPILATION RECORDS ARE TO BE PRINTED WITH’ THE 

SOURCE LISTING, THEN "LISTALL" MUST APPEAR ON THE $-CARD. IF 

NOT SPECIFIED, ONLY THOSE CONDITIONAL COMPILATION RECORDS WHICH 

WERE COMPILED ARE PRINTED. 


THE BNF FOR THE CONDITIONAL COMPILATION IS AS FOLLOWS: 


<CONDITIONAL INCLUSION> ::= <SET STATEMENT> 
<RESET STATEMENT > 
<PAGE STATEMENT» 
<LIBRARY STATEMENT > 
<IF BLOCK> 
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<SET STATEMENT> ::= SET <SET SYMBOL LIST> 
<SET SYMBOL LIST> ::= <SET SYMBOL > 

/ <SET SYMBOL LIST> 

<SET SYMBOL > 

<SET SYMBOL> ::= <BOOLEAN SYMBOL > 
<BOOLEAN SYMBOL> ::= <LETTER> 

/ <BOOLEAN SYMBOL> <LETTER> 

/ <BOOLEAN SYMBOL> <DIGIT> 
<RESET STATEMENT> ::= RESET <RESET SYMBOL LIST> 


<RESET SYMBOL LIST> 


<RESET SYMBOL > 
/ <RESET SYMBOL LIST> 
<RESET SYMBOL > 
<RESET SYMBOL> ::= <BOOLEAN SYMBOL > 
<PAGE STATEMENT> ::= PAGE 


<LIBRARY: STATEMENT > LIBRARY <FILE NAME> 


<FILE NAMED: := | <MULTI-FILE IDENTIFIER> 
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/ <MULTI-FILE IDENTIFIER> <SLASH> 
—  SFILE IDENTIFIER | 
/ <PACK IDENTIFIER> <SLASH> 
— <MULTI-FILE IDENTIFIER> <SLASHD 
/ <PACK IDENTIFIER> <SLASH> 
<MULTI-FILE IDENTIFIER> <SLASH> 
<FILE IDENTIFIER> 


<PACK IDENTIFIER>: := CIDENTIFIER> 


<MULTI-FILE IDENTIFIER>::= <IDENTIFIER> 
SFILE IDENTIFIER>::= <IDENTIFIER> 
<SLASH) : = : / 

<IF BLOCK> ::= <IF STATEMENT? 


<INCLUSION BLOCK> 
<END STATEMENT> 

/ <1F STATEMENT> 
<TRUE PART> 
<INCLUSION BLOCK> 
<END STATEMENT > 


<IF STATEMENT> ::= IF <BOOLEAN EXPRESSION> 


<BOOLEAN EXPRESSION> ::= <BOOLEAN FACTOR> | 
/ <BOOLEAN EXPRESSION> OR 
<BOOLEAN FACTORD> 


<BOOLEAN FACTOR> ::= <BOOLEAN SECONDARY > 
| / <BOOLEAN FACTOR> AND 
- <BOOLEAN SECONDARY> 


<BOOLEAN SECONDARY> ::= <BOOLEAN PRIMARY> 
7 / NOT <BOOLEAN PRIMARY > 


<SET SYMBOL > 
/ <RESET SYMBOL> 


<BOOLEAN PRIMARY> 


<SDL SOURCE IMAGE BLOCK> 
/ <IF BLOCK> 


< INCLUSION BLOCK> 


<SDL SOURCE | 
IMAGE BLOCK> ::= <EMPTY> 
| / <1 OR MORE SDL SOURCE IMAGES> 
<END STATEMENT> ::= END 
<TRUE PART> ::= | - <INCLUSION BLOCK> <ELSE STATEMENT> 


<ELSE STATEMENT> ::= Zr ELSE 
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ALL RECORDS CONTAINING CONDITIONAL COMPILATION STATEMENTS MUST 
HAVE AN AMPERSAND (&) IN COLUMN 1 (EXCEPT THE <SDL SOURCE IMAGE 
BLOCK>). IN ADDITION, A COMPLETE CONDITIONAL INCLUSION 
STATEMENT MUST BE CONTAINED ON ONE AMPERSAND CARD. COLUMNS 2-72 
ARE FREE-FIELD, AND COLUMNS 73-80 MAY CONTAIN SEQUENCE NUMBERS. 


NOTE THAT <BOOLEAN EXPRESSION>S MAY CONTAIN’ THE LOGICAL 
OPERATORS (FROM LOWEST PRECEDENCE TO HIGHEST) "OR", "AND", AND 
rT NOT 0 - . | : 


THE <PAGE STATEMENT> WILL CAUSE A PAGE EJECT IF THE SOURCE FILE 
IS BEING LISTED. THE <LIBRARY STATEMENT> WILL CAUSE THE IMAGES 
FROM THE FILE SPECIFIED BY <FILE NAME> TO BE INCLUDED IN THE 
SOURCE PROGRAM. : —_ 


AS AN EXAMPLE, CONSIDER THE FOLLOWING SDL SOURCE STATEMENTS 
ILLUSTRATING NESTED CONDITIONAL COMPILATION STATEMENTS AND <SDL 


SOURCE IMAGE BLOCK)S. 
| SEQ: 73-80 


COL 1 


FREE-FIELD: COLS e-7e 


re 


&'SET ABC 0100 
& RESET DE 0200 
DECLARE (A,B) FIXED; | 0300 
& IF A AND E | 0400 


A+B; 0500 

& ELSE 0600 
A*-X CAT Y+Z; % WHOLE SOURCE IMAGE IS INCLUDED 0700 

& IF C 0800 
B<-A; | 0900 

& END 1000 
& END 1100 
& IF B OR D 1200 
BUMP B; 1300 
& ELSE | | 1400 
BUMP A; 1500 
& END 1600 


Th 


THE COMPILATION OF THE FOLLOWING STATEMENTS WOULD RESULT. 


DECLARE (A,B) FIXED; | | 0300 
A+X CAT Y+Z; % WHOLE SOURCE IMAGE IS INCLUDED 0700 
Ba-A; 0300 


BUMP B; | 1300. 


NOTE THAT EVERY "IF" MUST BE PAIRED WITH EITHER AN "ELSE" OR AN 
"END". EVERY "ELSE" MUST HAVE AN "END" ASSOCIATED WITH IT. 
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APPENDIX VII: SDL PROGRAMMING TECHNIQUES 


THIS SECTION CONTAINS CODING SUGGESTIONS AND EXAMPLES WHICH 
RESULT IN DECREASED SOURCE CODE AND/OR OBJECT CODE. 


DECLARATIONS: 


1. AS MANY NON-STRUCTURED DECLARATIONS AS POSSIBLE (UP TO A 
MAX IMUM OF 32) SHOULD BE DECLARED IN ONE <DECLARE 
STATEMENT>. EXAMPLE: 


DECLARE A FIXED, (B,C) BIT(24) ; 
GENERATES MORE EFFICIENT CODE THAN: 


DECLARE A FIXED; 
DECLARE (B,C) BIT(24); 


eC. A <DEFINE ACTUAL PARAMETER> (SEE "DEFINE INVOCATION") MAY 
BE A SERIES OF SDL STATEMENTS. FOR EXAMPLE: 


DEFINE COMPARE(TS,S) AS# 
IF TOKEN.SYMBOL=TS 
| THEN DO; 
= 
UNDO THIS.ONE; 
END#; 


MAY BE INVOKED AS: 


DO THIS.ONE FOREVER; 
COMPARE ( "SINGLE", SINGLE.SPACE TRUE); 
COMPARE ("MERGE", IF LASTUSED # 0 
THEN UNDO THIS.ONE; 
LASTUSED<+e; 
OPEN SOURCE INPUT; 
READ SOURCE (TAPEWORK)); 
COMPARE (...,...)3 


END THIS.ONE ; 
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PROCEDURES : 


1. PROCEDURES FROM HIGHEST EFFICIENCY TO LOWEST ARE: 


PARAMETERS LOCAL DATA 
NO NO 
NO YES 
YES NO 
YES YES 


STATEMENTS: 


1. WHEN THE VALUE RETURNED BY A TYPED PROCEDURE IS _ TO 
IGNORED: 


IF P(X-Y) THEN; 
IS MORE EFFICIENT THAN: 


TEMP#P(X-Y) ; 


eC. THE FOLLOWING STATEMENTS: 


<NULL STATEMENT > 

<RETURN STATEMENT > 

<GROUP TERMINATION STATEMENT>, AND 
PARAMETER-LESS PROCEDURE CALLS 


es~e 


BE 


SHOULD NEVER BE THE ONLY STATEMENT WITHIN A <DO GROUP> 
WHICH FOLLOWS A "THEN" OR "ELSE" OR WHICH IS AN ELEMENT OF 


A <CASE STATEMENT> (OR ANY "SUBORDINATE EXECUA 
STATEMENT; SEE P. 4-2). EXAMPLE: 


IF A THEN RETURN; 
IS MORE EFFICIENT THAN: 
IF A THEN DO; 


RETURN; 
END; 


3. USE "%" AT THE BEGINNING OF A COMMENT RATHER THAN "“/*, 


TBLE 


oy eye 


AS DELIMITERS. THE "%" STOPS THE SCANNING OF THAT RECORD. 
IF THE "/*...*/" FORM IS USED, SCANNING MUST CONTINUE TO 


25-3 


DETECT THE ENDING TERMINATOR. THUS COMPILE TIME IS 
INCREASED. 
THE EXPRESSION: 
SUBSTR("0123456789ABCDEF " ,N, 1) 
GENERATES MUCH LESS CODE THAN 


CASE N OF Cee ee ad. weve nig ped 


THE STATEMENT: 

X*+A>0; 
IS MORE EFFICIENT THAN 

X+-IF A>O THEN 1 ELSE 0; 
THE RESULTS ARE THE SAME. 


BUMP A<«B; STORES B INTO A AND BUMPS B. 
BUMP A:~-B; STORES B INTO A AND BUMPS A. 


REVERSE .STORE (IF <CONDITION> THEN A ELSE B, C); SELECTIVELY 
STORES C INTO A OR B. 


CONSIDER THE FOLLOWING: 


IN A COMPILER, FOR EXAMPLE, ASSUME THAT ALL CALLS ON’ THE 
ERROR ROUTINE FOLLOW A THEN/ELSE OR ARE IN A_ <CASE 
STATEMENT>. EXAMPLE : 


1. IF <CONDITION> THEN ERROR(E005) ; 
e. CASE N; 


ERROR(E137); 
END CASE; 
IT IS SOMETIMES DESIRABLE TO PUT THESE CALLS INTO A 
SEPARATE SEGMENT, ESPECIALLY WHEN E005 AND E137 REPRESENT 
CHARACTER STRINGS (1.E.,- "IN-LINE" ERROR MESSAGES). FOR 
EXAMPLE: | 


DEFINE ERROR(N) AS #SEGMENT (ERROR.CALLS) ; 
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ERROR.ROUTINE (N) #; 


BECAUSE OF THE TEMPORARY NATURE OF SEGMENTING SUBORDINATE 
EXECUTABLE STATEMENTS, ONLY THE CALLS WILL BE IN SEPARATE 
SEGMENTS. oe 


WHEN TWO OR MORE ELEMENTS OF A <CASE STATEMENT> OR AN <IF 
STATEMENT> HAVE IDENTICAL CODE, MORE EFFICIENT CODE IS 
GENERATED IF THE CODE IS PUT INTO A _ SEPARATE PROCEDURE 
(WITH NO PARAMETERS OR DATA). IN BOTH CASES, EXECUTION TIME 
WILL BE IDENTICAL, BUT OBJECT CODE SAVINGS COULD BE 
SUBSTANTIAL. | 


» USE CONDITIONAL COMPILATION STATEMENTS TO REMOVE DEBUGGING 


CODE , RATHER THAN PHYSICALLY REMOVING THE CODE. SEE 
APPENDIX VI. 
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APPENDIX VIII: THE SDL RECOMPILATION FACILITY 


RECOMPILATION OF SDL PROGRAMS IS A TWO PART PROCESS: (A) 
COMPILATION OF THE FULL PROGRAM IN ORDER TO CREATE THE MASTER 
INFORMATION FILES, AND (B) RECOMPILATION OF PARTS OF THE 
PROGRAM USING THE MASTER INFORMATION FILES. THE "CREATE MASTER" 
OPERATION TAKES PLACE ONCE, AND IS THEN FOLLOWED BY SUCCESSIVE 
"RECOMPILE" OPERATIONS. NOTE THAT BOTH A "CREATE MASTER" AND A 
"RECOMPILE" MAY BE PERFORMED AT THE SAME TIME. IN ADDITION, IT 
IS POSSIBLE TO DO "REGULAR" COMPILATIONS WITHOUT INVOKING ANY 
OF THE RECOMPILATION FACILITY. 


A. THE CREATE MASTER OPERATION 


IN ORDER TO CREATE THE MASTER INFORMATION FILES, IT IS NECESSARY 
TO INCLUDE AS THE FIRST CARD IN THE COMPILATION DECK’ THE 
$-CARD: 


$ CREATE.MASTER 


THIS CAUSES THE COMPILER TO: (A) DUMP INFORMATION TO THE MASTER 
INFORMATION FILES, (B) CREATE A NEW SOURCE FILE (ABOUT WHICH, 


INFORMATION IS SAVED), AND (C) USE THESE TO CREATE A NEW CODE 
FILE. 


THE INFORMATION THAT IS SAVED IS: THE INPUT SOURCE IMAGES, THE 
LEXIC LEVEL ONE PROCEDURE BOUNDARIES (BOTH SOURCE AND OBJECT), 
THE LEXIC LEVEL ZERO SYMBOL TABLES, A RECORD OF ALL CODE 
ADDRESSES THAT HAVE BEEN EMITTED, THE OBJECT CODE FROM WHICH 
CODE ADDRESSES HAVE BEEN EXCISED, AND THE FPB2S AND 
SCRATCHPADS. THIS IS SAVED IN THE FILES: 


NEWSOURCE , 

NEW. INFO.FILE, 
NEW.BLOCK.ADDRESS.FILE, 
NEW.SECONDARY.FILE, AND 
NEW.FPB.FILE. 
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THERE ARE SEVERAL RESTRICTIONS THAT APPLY TO THE CREATE MASTER 
OPERATION: 


1. $ CREATE.MASTER MUST BE THE FIRST CARD IN THE DECK. 
e. $ NEW NEED NOT BE USED WITH $ CREATE.MASTER. 


3. $ SEQ SHOULD BE USED IF THERE ARE INPUT SOURCE IMAGES WITH 
EMPTY SEQUENCE FIELDS. | 


NOTE THAT (1) IMPLIES THAT THE &-CARDS AT THE FRONT OF THE DECK 
WILL BE INCLUDED ON THE NEW SOURCE FILE THAT IS CREATED. HENCE, 
THESE CARDS SHOULD BE SEQUENCED. 


B. THE RECOMPILE OPERATION 


RECOMPILATION IS DONE ON A LEXIC LEVEL ONE PROCEDURE BASIS: 
I.E., THE OUTERMOST PROCEDURE CONTAINING A PATCH IS_ THE 
PROCEDURE WHICH IS RECOMPILED. THE CODE PRODUCED BY THE 
RECOMPILE PROCESS WILL BE MERGED INTO (AND, IN FACT, REPLACE 
SOME OF) THE INFORMATION CREATED DURING THE CREATE MASTER 
PROCESS. 


RECOMPILATION IS INVOKED BY INCLUDING AS THE FIRST CARD OF THE 
PATCH DECK: 


$ RECOMPILE 


THIS CAUSES THE COMPILER TO USE THE PATCHES AND THE MASTER 
INFORMATION FILES TO LOCATE THE LEXIC LEVEL ONE PROCEDURES AND 
TO GENERATE THE SAME INFORMATION FOR THESE AS WAS GENERATED FOR 
THE ENTIRE PROGRAM IN THE CREATE MASTER OPERATION. THIS 
INFORMATION IS THEN COMBINED, ON A_ PROCEDURE BY PROCEDURE 
BASIS, WITH THE MASTER INFORMATION FILES TO PRODUCE A_ FINAL 
FORM OF THE PROGRAM WHICH CAN BE TURNED INTO A CODE FILE. 


THE INFORMATION THAT IS ACCESSED IS CONTAINED IN THE FILES: 


SOURCE , 
MASTER. INFO.FILE, 
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MASTER.BLOCK.ADDRESS.FILE, 
MASTER.SECONDARY.FILE, AND 
MASTER.FPB.FILE. 


THERE ARE SEVERAL RESTRICTIONS THAT APPLY TO THE RECOMPILE 
OPERATION: 


1. % RECOMPILE MUST BE THE FIRST CARD IN THE DECK. 


ec. THE PATCH DECK MAY CONTAIN $-CARDS, & SET CARDS, AND & 
RESET CARDS, FOLLOWED BY PATCH CARDS. 


3. NO LEXIC LEVEL ZERO CARDS MAY BE PATCHED: THIS INCLUDES 
GLOBAL DATA, LEXIC LEVEL ONE PROCEDURE HEADS, AND THE MAIN 
PROGRAM. 


4. NEITHER $ SEQ NOR $ MERGE MAY APPEAR WITH $ RECOMPILE. 


5S. THE SOURCE FILE INPUT DURING RECOMPILATION MUST BE ON DISK 
(IN ORDER THAT IT MAY BE ACCESSED RANDOMLY). 


C. THE CREATE MASTER AND RECOMPILE OPERATIONS PERFORMED TOGETHER 


IT IS POSSIBLE TO CREATE NEW MASTER’ INFORMATION FILES WHILE 
RECOMPILING. IT IS NECESSARY ONLY TO ADHERE TO THE SET OF 
RESTRICTIONS LISTED IN BOTH A AND B, ABOVE. IN PARTICULAR, 


$ RECOMPILE CREATE .MASTER 


MUST BE THE THE FIRST CARD IN THE DECK. IT SHOULD BE NOTED, 
HOWEVER, THAT PERFORMING THESE OPERATIONS TOGETHER UPDATES SOME 
OF THE INFORMATION IN THE FILE MASTER.INFO.FILE. HENCE, IT WILL 
NOT BE POSSIBLE TO PERFORM ANOTHER RECOMPILE USING THIS 
MASTER. INFO.FILE UNLESS THE FILE HAS BEEN COPIED. IN THIS CASE, 
THE COPIED VERSION IS THE ONE WHICH MUST BE USED FOR SUBSEQUENT 
RECOMPILATIONS. 


D. NOTES 


1. DURING RECOMPILATION, THE ONLY INFORMATION WHICH MAY BE 
LISTED IS THAT WHICH IS ACTUALLY BEING RECOMPILED. 
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THE ORIGINAL SOURCE FILE USED WITH $ CREATE.MASTER MAY BE 
ON MAG TAPE. THE NEW SOURCE FILE CREATED BY $ CREATE.MASTER 
MAY BE ON MAG TAPE. HOWEVER, THIS NEW SOURCE FILE MUST THEN 
BE COPIED TO DISK BEFORE PERFORMING THE RECOMPILE 
OPERATION. 5 ay : =» = | 


USE OF THE RECOMPILATION FACILITY REQUIRES A FAIR AMOUNT OF 
DISK SPACE, PARTICULARLY WHEN BOTH RECOMPILATION AND CREATE 
MASTER OPERATIONS ARE PERFORMED AT THE SAME TIME. IT IS 
ADVANTAGEOUS TO KEEP SOURCE FILES ON MAG TAPE AS MUCH AS 
POSSIBLE, COPY THEM TO DISK WHEN THEY ARE NEEDED, AND 
REMOVE THEM AS SOON AS THEY ARE RELEASED. 


THE MARK III.1 MCP REQUIRES THAT ALL INTERNAL FILE NAMES BE 
LIMITED TO TEN CHARACTERS; THE MARK III.2 RESTRICTION IS 63 
CHARACTERS, OF WHICH ONLY THE FIRST TEN ARE SIGNIFICANT. 


THE SOURCE IMAGE FILE CREATED BY THE CREATE MASTER PROCESS 
CONTAINS NO INFORMATION OTHER THAN SOURCE IMAGES. IT MAY 
THEREFORE BE USED IN A REGULAR COMPILATION. 


» SAMPLE COMPILE DECKS 


COMPILE, CREATE.MASTER: 


COMPILE SA SDL LIBRARY 
FILE SOURCE NAME SAQ206/SOURCE TAPE; 
FILE NEWSOURCE NAME SAO410/SOURCE TAPE; 
FILE NEW. INFO.FILE NAME SAO410/INFO; 
FILE NEW.BLOCK.ADDRESS.FILE NAME SA0410/BLOCK. ADDRESS; 
NEW.SECONDARY.FILE NAME SA0410/SECONDARY ; 
FILE NEW.FPB.FILE NAME SAO410/FPB; 
DATA CARDS 
CREATE .MASTER 
MERGE LIST SINGLE SIZE SEQ 
[PATCH CARDS] 
[99999999 CARD) 
? END 
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RECOMPILE (IT IS ASSUMED THAT THE TAPE LABELLED 
SA0410/SOURCE HAS BEEN COPIED TO A DISK FILE OF THE SAME 
NAME ) : 


COMPILE SA SDL LIBRARY 

FILE SOURCE NAME SA0410/SOURCE; 

FILE MASTER. INFO.FILE NAME SAO410/INFO; | 
FILE MASTER.BLOCK.ADDRESS.FILE NAME SAO410/BLOCK.ADDRESS; 
FILE MASTER.SECONDARY.FILE NAME SA0410/SECONDARY ; 
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? FILE MASTER.FPB.FILE NAME SAO410/FPB; 
? DATA CARDS 

S$ RECOMPILE 

$ LIST SINGLE SIZE 

$ VSSIZE 10000 NSSIZE 100 

[PATCH CARDS] 

(99999999 CARD] 

? END 


3. RECOMPILE, CREATE .MASTER: 


COMPILE SA SDL LIBRARY 

FILE SOURCE NAME SA0410/SOURCE ; 

FILE MASTER. INFO.FILE NAME SAO0410/ INFO; 

FILE MASTER.BLOCK.ADDRESS.FILE NAME SA0410/BLOCK.ADDRESS; 
FILE MASTER.SECONDARY.FILE NAME SA0410/SECONDARY ; 

FILE MASTER.FPB.FILE NAME SAO410/FPB; 

FILE NEWSOURCE NAME SAO0411/SOURCE TAPE; 

FILE NEW. INFO.FILE NAME SAO411/INFO; 

FILE NEW.BLOCK.ADDRESS.FILE NAME SA04%11/BLOCK.ADDRESS; 
FILE NEW.SECONDARY.FILE NAME SA0411/SECONDARY ; 

FILE NEW.FPB.FILE NAME SAO4%11/FPB; 

DATA CARDS 

RECOMPILE CREATE .MASTER 

VSSIZE 10000 NSSIZE 100 

LIST SINGLE SIZE 

[PATCH CARDS] 

? END 
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APPENDIX IX: SDL MONITORING FACILITY 


THE SDL MONITORING FACILITY PROVIDES A MEANS OF MONITORING 
PROCEDURE INVOCATIONS AND EXITS. THE MONITOR OUTPUT INCLUDES 
POINTS OF INVOCATION, PROCEDURE NAMES, PARAMETER VALUES, 
RETURNED VALUES, ETC. 


SDL PROGRAM SYNTAX AND SEMANTIC CHANGES 


A. "MONITOR. INPUT.FILE" AND "MONITOR.OUTPUT.FILE" ARE ADDED AS 
<FILE ATTRIBUTE> S TO THE <FILE DECLARATION STATEMENT>. 
THEY HAVE THE FOLLOWING SEMANTICS: 


1. BOTH CANNOT BE ATTRIBUTES OF THE SAME FILE. 


2. EACH MAY APPEAR ONLY ONCE IN A COMPILATION. 
Ss. "MONI TOR.OUTPUT.FILE" MAY APPEAR ALONE. 


B. "NO MONITOR" AND "MONITOR" ARE ADDED AS <CONTROL OPTION>SS 
TO SDL. THEY HAVE THE FOLLOWING SEMANTICS: 


1. THE "MONITOR" <CONTROL OPTION> IS INITIALLY 
OFF. | 
2, RECOGNIZING THE  ("MONITOR"/"NO MONITOR") 


<CONTROL OPTION> TURNS THAT OPTION (ON/OFF). 


GENERAL DISCUSSION 


THE MONITORING SYSTEM WILL MONITOR PROCEDURE INVOCATIONS AND 
EXITS ON THE FILE WITH <FILE ATTRIBUTE> "MONITOR.OUTPUT.FILE”. 
PROCEDURES WHICH ARE CANDIDATES TO BE MONITORED ARE THOSE WHOSE 
<FORWARD DECLARATION>S OR <PROCEDURE STATEMENT >S WERE 
RECOGNIZED WHILE THE "MONITOR" <CONTROL OPTION> WAS "ON". 


THE SET OF PROCEDURES TO BE MONITORED FOR A GIVEN RUN IS 
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SELECTED VIA <RUN-TIME MONITOR STATEMENT>S WHICH ARE INPUT AT 
THE BEGINNING OF THE PROGRAM VIA. THE FILE WITH THE 
"MONITOR. INPUT.FILE" ATTRIBUTE. IF NO FILE WITH THIS ATTRIBUTE 
IS DECLARED THE SPO IS USED BY DEFAULT. 


A. FILE HANDLING 


THE FILE WITH <FILE ATTRIBUTE> "MONITOR. INPUT.FILE" WILL BE 


OPENED, ACCESSED, AND CLOSED BEFORE THE USER CODE RECEIVES 
CONTROL . | a 


THE FILE WITH <FILE ATTRIBUTE> "MONITOR.OUTPUT.FILE" WILL BE 
WRITTEN TO ONLY; NO EXPLICIT OPEN OR CLOSE WILL BE PERFORMED. 
THIS MEANS THAT (A) ONCE MONITOR OUTPUT IS STARTED THE USER 
SHOULD NOT PERFORM AN EXPLICIT OPEN ON THE FILE AND (B) IF MORE 
MONITOR OUTPUT IS EXPECTED THE USER SHOULD NOT PERFORM AN 
EXPLICIT CLOSE ON THE FILE. | 


RUN-TIME MONITOR STATEMENT 


THE SYNTAX OF THE RUN-TIME MONITOR STATEMENT IS DESCRIBED BELOW. 


<RUN-T IME 
MONITOR STATEMENT): := $SALL 1 
/ $NONE 2 
/. <EXPRESSION> 3 
<EXPRESSIOND ::= <TERM> Ly 
/ <EXPRESSION> <OR>D <TERM> 5 
<TERM> ::= <FACTOR> | 7 6 
/ <TERM> <AND> <FACTORD 7 
<FACTOR>D ::= <PRIME> 8 
/ <NOT> <PRIME> | 9g 
<PRIME> ::= <RANGE> 10 
: / <LIST> | 11 
/ (<EXPRESSIOND) | le 
<OR> ::= OR 13 
| foe 14 


ran 
> 
Z 
S 
Ww 
r 

> 
Z 
S 
7 


N~ 
(tls 
O 
om 
Vv 
rr 
a 
O 
_~ 
~ 
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<RANGE> ::= <8 DIGIT SEQUENCE NUMBER> - 19 

<8 DIGIT SEQUENCE NUMBER> 20 

<LIST> ::= <IDENTIFIER> 21 
/ <LIST> <IDENTIFIERD 22 

/ <LIST>, <IDENTIFIER> 23 


THE SEMANTICS OF A <RUN-TIME MONITOR STATEMENT> ARE DESCRIBED AS 
FOLLOWS. IF A PROCEDURE "P" SATISFIES THE CONDITIONS OF THE 
MONITOR STATEMENT THEN IT SHOULD BE MONITORED. NOTE THAT ALL 
PROCEDURES SATISFY (1) AND NO PROCEDURES SATISFY (2). A 
PROCEDURE SATISFIES AN <EXPRESSION> IF IT SATIFIES ANY <TERM> 
OF THAT <EXPRESSION>. A PROCEDURE SATISFIES A <TERM> IF IT 
SATISFIES ALL <FACTOR>S OF THAT <TERM>. A PROCEDURE SATISFIES 
A <FACTOR> IF IT SATISFIES THE <PRIME> COMPOSING IT (8) OR IT 
DOES NOT SATISFY THAT PRIME (9). A PROCEDURE SATISFIES A 
<PRIME> IF IT SATISFIES A RANGE CONDITION (10), A’ LIST 
CONDITION (11), OR A SUB-EXPRESSION (12). A RANGE CONDITION IS 
TWO 8 DIGIT SEQUENCE NUMBERS, THE FIRST STRICTLY LESS THAN THE 
SECOND. A PROCEDURE SATISFIES A RANGE CONDITION IF ITS 
PROCEDURE STATEMENT IS CONTAINED IN THAT RANGE. A PROCEDURE 
STATEMENT SATISFIES A LIST CONDITION IF ITS NAME IS CONTAINED 
IN THE LIST. | 


THE MONITOR FILE 


WHEN MONITORING A PROGRAM, THE MONITORING INTRINSICS REFERENCE 
A RANDOM ACCESS FILE ASSOCIATED WITH THE COMPILATION OF THE 
PROGRAM. THE NAME OF THE CODE FILE AND THE NAME OF ITS MONITOR 
FILE ARE GIVEN BELOW: 


CODE FILE. MONITOR FILE 
A SSA 
A/B A/$$B 
A/B/C A/B/$$C 
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APPENDIX X: BURROUGHS B1700 DATA COMMUNICATIONS SDL (DCSDL) 


B 1700 DATA COMMUNICATIONS SDL (DCSDL) IS AN EXTENSION OF B 1700 
SDL, AND ANY CONSTRUCT USABLE IN B 1700 SDL IS PERMITED IN 
DCSDL . 


DCSDL HAS BEEN PROVIDED SPECIFICALLY FOR THE IMPLEMENTATION OF 
THE NETWORK CONTROLLER FOR DATA COMMUNICATIONS NETWORK. IT 
SHOULD NOT BE USED FOR ANY OTHER PURPOSE. NOTE THAT THERE ARE 
SOME FEATURES OF DCSDL WHICH EITHER HAVE NOT BEEN FULLY 
IMPLEMENTED OR HAVE NOT BEEN IMPLEMENTED AT ALL. THESE FEATURES 
WILL BE MARKED AS SUCH. 


FOR SIMPLICITY, ONLY THOSE CONSTRUCTS OF DCSDL THAT ARE NEW AND 
THAT HAVE NOT BEEN PREVIOUSLY DEFINED IN B1700 SDL WILL BE 
DESCRIBED IN THIS APPENDIX. THE SYNTACTIC DESCRIPTIONS WILL BE 
CONSISTENT WITH THOSE OF B1700 SDL, AND ANY METALINGUISTIC 
VARIABLE NOT DEFINED IN THIS MANUAL HAS THE SAME DEFINITION AS 
IN THE B1700 SDL INFORMATION MANUAL. 


DCSDL EXTENSIONS 


SYNTAX: 


<DCSDL EXTENSION> ::= <DCSDL DECLARATION> / <DCSDL FUNCTIOND/ 
<DCSDL STATEMENT> 


SEMANTICS: 


THE EXTENSIONS TO B1700 CONSIST OF TWO NEW DECLARATIONS, A 
NUMBER OF STATEMENTS, AND SOME SPECIALIZED FUNCTIONS THAT DEAL 
WITH THE NEW DECLARATIONS. 
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NOTE: THE WORDS "TRUE" AND "FALSE" IN THIS APPENDIX 
SYNONOMOUS WITH @(1)1@ AND @(1)0@, RESPECTIVELY. 


DCSDL DECLARATIONS 


SYNTAX: 


<DCSDL DECLARATION> ::= <B1700 SDL DECLARATIONS> / 
<QUEUE DECLARATION> / <MESSAGE DECLARATION? 


SEMANTICS: 


DCSDL DECLARATIONS MAY BE THE <B1700 SDL DECLARATIONS>, OR 
THE <QUEUE DECLARATION>, OR THE <MESSAGE DECLARATION>. 


QUEUE DECLARATIONS 


SYNTAX: 


<QUEVE DECLARATION> ::= QUEUE <QUEUE LIST> 


<QUEVE LIST> ::= <COMPLEX QUEUE IDENTIFIER> / <QUEVE LIST>, 
<COMPLEX QUEUE IDENTIFIER> 


<COMPLEX QUEVE IDENTIFIER> ::= <QUEUVE IDENTIFIER>D / 
<QUEUE ARRAY IDENTIFIER> (<ARRAY BOUND>) 


QUEUE IDENTIFIER> ::= <IDENTIFIERD 
<QUEUE ARRAY IDENTIFIER> ::= <IDENTIFIER> 
<ARRAY BOUND> ::= <INTEGER> 


EXAMPLES: 


ec6-e 


ARE 
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QUEUE A, B,. © -(C10)% 


QUEUE QUEUE .ARRAY (15), PRIMARY (7); 


SEMANTICS: 


1. A <QUEUE DECLARATION> DEFINES ONE OR MORE IDENTIFIERS AS 
QUEUES OR QUEVE ARRAYS AND DEFINES THEIR BOUNDS OF 
SUBSCRIPT. QUEUE ARRAYS MUST BE ONE DIMENSIONAL. 


e. THE SUBSCRIPT BOUND FOR EACH QUEUE ARRAY IS GIVEN IN THE 
<ARRAY BOUND> FOLLOWING THE QUEUE ARRAY IDENTIFIER(S) IN 
THE <QUEVE ARRAY LIST>. 


3. EXPRESSIONS MAY BE USED AS QUEUE ARRAY SUBSCRIPTS. 
4%. QUEUE ARRAYS MUST BE DECLARED IN THE OUTERMOST BLOCK. 
5S. A DCSDL QUEVE IS A LINKED LIST OF MESSAGES. 


6. A QUEUE ARRAY IS AN INDEXABLE ARRAY WHOSE ELEMENTS ARE 
QUEVES, NOT VALUES. 


7. QUEUES AND QUEUE ARRAYS MAY NOT BE PASSED AS PARAMETERS TO 
PROCEDURES. 


PRAGMATICS: 


A DATA DICTIONARY ENTRY IS RESERVED FOR EACH QUEUE OR QUEUE 
ARRAY. IF THE QUEVE IS INACTIVE (A NULL QUEUE) THE ENTRY WILL 
BE ZERO. IF THE QUEVE IS ACTIVE, THE ENTRY WILL BE A DICTIONARY 
ENTRY WHICH POINTS TO A LOCATION IN THE DATACOM QUEUE STACK. 
WHEN A QUEVE IS ACTIVE, ITS ENTRY IN THE QUEUE STACK CONTAINS 
THE HEAD AND TAIL LINKS TO A LINKED LIST OF MESSAGES. WHEN THE 
QUEUE IS EMPTY, THE TAIL LINK POINTS TO THE HEAD LINK; HOWEVER, 
THE QUEUE IS STILL CONSIDERED ACTIVE. 


QUEUES MAY BE REFERENCED BY THE USE OF THE NEW STATEMENTS AND 
FUNCTIONS DESCRIBED IN THIS DOCUMENT. A QUEUE MAY NOT BE 
ASSIGNED A VALUE OR USED AS AN INDEX. 


A QUEUE MAY BE ACTIVATED WITH AN’ ENABLE STATEMENT AND 
DE-ACTIVATED WITH THE DISABLE STATEMENT. 
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MESSAGE DECLARATION 


SYNTAX: 
<MESSAGE DECLARATION> ::= MESSAGE <MESSAGE LIST> 
“MESSAGE LIST> ::= <COMPLEX MESSAGE IDENTIFIER> / <MESSAGE 


LIST>, <COMPLEX MESSAGE IDENTIFIER> 


<COMPLEX MESSAGE IDENTIFIER> ::= <MESSAGE IDENTIFIER> 
/ <MESSAGE ARRAY IDENTIFIER> (<ARRAY BOUND) ) 


MESSAGE IDENTIFIER> ::= <IDENTIFIERD 
<MESSAGE ARRAY IDENTIFIER> ::= <IDENTIFIER> 
<ARRAY BOUND> ::= <INTEGERD 

EXAMPLES: 


MESSAGE Aa Be Cs 


MESSAGE FROM.A (10), X, 4, ALPHA.1 (5); 


SEMANTICS: 


1. A  <MESSAGE DECLARATION> DEFINES ONE OR MORE IDENTIFIERS AS 
MESSAGES OR MESSAGE ARRAYS AND DEFINES THEIR BOUNDS. 


ec. THE SUBSCRIPT BOUND FOR EACH MESSAGE ARRAY IS GIVEN IN THE 
<ARRAY BOUND> FOLLOWING THE MESSAGE ARRAY IDENTIFIER IN THE 
<MESSAGE ARRAY LIST>. 

3. THE <ARRAY BOUND> GIVES UPPER BOUNDS OF ALL SUBSCRIPTS. 


4, ESSENTIALLY, MESSAGES ARE SPECIAL WORK AREAS OUTSIDE THE 
BASE LIMIT OF INDIVIDUAL PROCESSES. 
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3. MESSAGE ARRAYS MUST BE ONE DIMENSIONAL. THE NUMBER OF BYTES 
IN THE MESSAGE IS SET BY THE ALLOCATE STATEMENT AND CAN BE 
DETERMINED BY THE SIZE OPTION IN THE QUEVE.INFO FUNCTION. 


6. MESSAGE ARRAYS MUST BE DECLARED IN THE OUTERMOST BLOCK. 


7. MESSAGES CANNOT BE PASSED AS PARAMETERS TO PROCEDURES. 


MESSAGES ARE ORGANIZED AND MAINTAINED BY A SET OF PROCEDURES 
WITHIN THE MCP. THESE PROCEDURES MAINTAIN A LIST OF FREE SPACE 
WITHIN THE SAVE-MEMORY POOL AND ALLOCATE THIS SPACE TO 
PROCESSES THAT REQUEST IT, BY MAKING A DESCRIPTOR FOR AN’ AREA 
AND PASSING THAT. THE INTRINSICS ALSO ACCEPT SPACE FROM 
PROCESSES FINISHED WITH AN AREA AND ADD IT TO THE AVAILABLE 
LIST. IF AT ANY TIME THE INTRINSICS SEEM TO BE RUNNING OUT OF 
SPACE THEY GET A NEW SUBPOOL AND APPROPRIATELY SUBDIVIDE IT. 
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MESSAGE LINKAGE MECHANISM 


DATA IN MESSAGES WILL BE ACCESSED ONLY THROUGH THE DATA 
DICTIONARY. A NEW SDL S-OPERATOR (TRANSFER.MESSAGE) IS DEFINED TO 
PERMIT THIS ACCESS TECHNIQUE. THESE OPERATORS WILL PERFORM THE 
FOLLOWING FUNCTIONS. 


1. COMPUTE THE DATA DICTIONARY ENTRY NUMBER (1.E. 
INDEX) 
Ci FIND OUT THE LOCATION OF THE DATA DICTIONARY 


THROUGH THE FIELD RS.DATA.DIC IN THE RUN 
STRUCTURE NUCLEUS 


5. COMPUTE THE ABSOLUTE ADDRESS OF THE DATA 
DICTIONARY ENTRY 


es DETERMINE THE ABSOLUTE LOCATION OF A MESSAGE 
AND ITS LENGTH 


Ds SET THE BASE-LIMIT OVER-RIDE FLIP FLOP CD(2) 
IF WRITE OPERATION ELSE CD(1) 


6. TRANSFER INFORMATION FROM THE MESSAGE TO A 
LOCAL DATA AREA OR VICE VERSA. DESCRIPTORS ON 
THE EVALUATION STACK WILL DESCRIBE THE DATA TO 
BE TRANSFERRED. THE INTERPRETER WILL CHECK THE 
VALIDITY OF ANY ADDRESSES OUTSIDE BASE-LIMIT. 


THE INTERPRETER WILL NOT CHANGE MESSAGE DESCRIPTORS IN THE DATA 
DICTIONARY. ONLY THE MCP WILL HAVE THIS PRIVILEGE. IF A MESSAGE 
IS NOT ASSIGNED TO A DATA DICTIONARY ENTRY AND IF THE PROGRAM 
TRIES TO READ OR WRITE TO IT AN INTERRUPT WILL BE CAUSED. 


THIS MECHANISM IS SAFE. A USER PROGRAM (SDL) WILL NOT HAVE THE 
ABILITY TO WRITE INTO A MEMORY SPACE THAT HAS NOT BEEN 
ALLOCATED TO IT BECAUSE ALL ADDRESSING IS INDIRECT THROUGH THE 
DATA DICTIONARY. 
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DCSDL FUNCTIONS 


SYNTAX: 


<DCSDL FUNCTION? <B1700 SDL FUNCTION> / <QUEUE FUNCTION> 


N 


<QUEUE FUNCTIOND <ALLOCATE FUNCTION> 


SEMANTICS: 


DCSDL FUNCTIONS MAY BE THE <B1700 SDL FUNCTION>, OR THE <QUEUE 
FUNCTIOND. 


ALLOCATE FUNCTION 


SYNTAX: 

<ALLOCATE FUNCTION> ::= ALLOCATE (<COMPLEX MESSAGE IDENTIFIERD, 
| <SIZE>) 

<SIZE> ::= <ARITHMETIC EXPRESSION> 

EXAMPLES: 


RESULT :: 


ALLOCATE (MESSAGEID, SIZEINBITS); 


RESULT ::= ALLOCATE (MESSAGEARRAYID(3), SIZEINBITS) ; 
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SEMANTICS: 


THE <ALLOCATE FUNCTION> CAUSES AN AREA OF SAVE MEMORY, 
<SIZE> BITS IN LENGTH, TO BE RESERVED FOR A MESSAGE. 


WHEN THE <SUB MESSAGE ARRAY > (OR <MESSAGE ARRAY 
IDENTIFIER>) FORM IS USED, REPEATED ALLOCATES ARE NEEDED 
FOR EACH ELEMENT OF THE SUB MESSAGE ARRAY (OR MESSAGE 
ARRAY), RESERVING <SIZE> BITS FOR EACH ELEMENT. 


IF A MESSAGE AREA REFERENCED BY <COMPLEX MESSAGE 
IDENTIFIER> HAS ALREADY BEEN ALLOCATED, THE OLD MESSAGE 
AREA IS RETURNED TO THE SYSTEM BEFORE A NEW AREA IS 
ALLOCATED. THIS FEATURE HAS NOT BEEN IMPLEMENTED. 


IF <SIZE> IS EQUAL TO ZERO, THE MESSAGE AREA, IF ANY, IS 
RETURNED TO THE SYSTEM, MAKING THE MESSAGE NULL. THIS 
FEATURE HAS NOT BEEN FULLY IMPLEMENTED. 


THE VALUE RETURNED IS THE 24 BIT ADDRESS OF THE MESSAGE. 
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DCSDL STATEMENTS 


SYNTAX: 


<DCSDL STATEMENT> ::= <B1700 SDL STATEMENT> / <QUEUE STATEMENT > 
CQUEVE STATEMENT> ::= <DC.WRITE STATEMENT> / <REMOVE STATEMENT)>/ 


<QUEVE.INFOQ STATEMENT> / <MESSAGE.INFO STATEMENT> / 
<DE.ALLOCATE STATEMENT> / <INSERT STATEMENT> / 
<FLUSH STATEMENT> / <ENABLE.QUEVE STATEMENT) / 
<DISABLE .QUEUE STATEMENT> / <TRANSFER.MESSAGE STATEMENT) / 
<MCS.COMMUNICATE STATEMENT) / 


SEMANTICS: 


THE <DCSDL STATEMENT> MAY BE A <B1700 SDL STATEMENT>, OR AN 
<ALLOCATE STATEMENT>, OR A <QUEUE STATEMENT>. 


DC .WRITE STATEMENT 


<DC.WRITE STATEMENT> ::= DC.WRITE (<RESULT PART>, <MESSAGE 
PART> <QUEUE PART PARAMETER>) 


<RESULT PART> ::= <ADDRESS GENERATOR> 


<MESSAGE PART> ::= <MESSAGE IDENTIFIER> / <MESSAGE ARRAY> 
IDENTIFIER> (<SUBSCRIPT>) 


<QUEVUE PART PARAMETER> ::= , <QUEUE PART> / <EMPTY> 


<QUEVE PART> ::= “QUEUE IDENTIFIER> / <QUEUE ARRAY IDENTIFIER> 
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(<SUBSCRIPT>) 
<SUBSCRIPT> ::= <EXPRESSION> 
EXAMPLES: 


DC.WRITE (ERRORNO, MESSAGEID) ; 
DC.WRITE (ERRORNO, MESSAGE .ARRAY.ID (3), QUEUEID) ; 


SEMANTICS: 


1. THE <DC.WRITE STATEMENT> CAUSES THE <MESSAGE PART> TO BE 
PASSED TO THE NETWORK CONTROLLER (NC). 


ec. THE ACTION TAKEN BY THE NC DEPENDS ON THE TYPE AND VARIANT 
FIELDS OF THE MESSAGE (AS SPECIFIED IN THE B1700 MCS 
MANUAL). 


3. THE <QUEVE PART PARAMETER> IS REQUIRED FOR CERTAIN NC 
ACTIONS. (SEE THE B1700 MCS MANUAL). 


4. THE VALUE RETURNED IS AN ERROR IDENTIFICATION NUMBER. A 
ZERO INDICATES NO ERROR; OTHER ERROR VALUES ARE GIVEN IN 
THE B1700 MCS MANUAL. 


REMOVE STATEMENT 


<REMOVE STATEMENT> ::= REMOVE (<ADDRESS GENERATOR>, <COMPLEX 
MESSAGE IDENTIFIER>, <QUEUVE DESIGNATOR> <WAIT PART>) 


<WAIT PART> ::= ,WAIT / <EMPTY> 
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EXAMPLES: 


DECLARE 
01 RESULT 
,0e MESSAGE .LENGTH BIT(16) 
02 QUEVE.SUBSCRIPT BIT(12) 
,0e2 MESSAGE.ADDRESS BIT(24) 


MESSAGE M(3), MESG.X ; 
QUEUE Q(10), A,B; 
REMOVE (RESULT, M(2), A, WAIT): 
REMOVE (RESULT, MESG.X, Q(3) ); 


REMOVE (RESULT, MSG.X, Q, WAIT); 


THE LAST STATEMENT WILL SUSPEND THE PROCESS UNTIL A MESSAGE IS 
INSERTED IN ANY ELEMENT OF "Q". IF ANOTHER PROCESS INSERTS A 
MESSAGE OF 1000 BYTES IN Q(7) THEN THE FIRST PROCESS WILL BE 
RESUMED AND MESSAGE.LENGTH WILL CONTAIN 1000 AND QUEUE 
SUBSCRIPT WILL CONTAIN 7. MESSAGE.ADDRESS CONTAINS THE ABSOLUTE 
ADDRESS OF THE MESSAGE. A MESSAGE THAT BELONGS TO A_ PROGRAM 
WILL NOT BE OVERLAYED BY THE MCP. 


SEMANTICS: 


1. THE <REMOVE STATEMENT> DELINKS A MESSAGE FROM THE QUEUE 
SPECIFIED AND CAUSES IT TO BE REFERENCED BY THE <MESSAGE 
PART>. | : 


e. IF THE <WAIT PART> IS NOT EMPTY THEN THE PROGRAM IS 
SUSPENDED UNTIL A MESSAGE IS INSERTED IN THE QUEVE OR QUEUE | 
ARRAY. THE FIRST 16 BITS OF THE RETURNED VALUE CONTAIN THE 
SIZE OF THE MESSAGE AND THE NEXT Ile BITS CONTAIN A 
SUBSCRIPT INTO THE QUEUE ARRAY (WHERE APPLICABLE). 


$3. IF THE <WAIT PART> IS EMPTY THE <REMOVE STATEMENT> RETURNS 
A VALUE OF ZERO IF THERE ARE NO MESSAGE IN THE QUEUE. 
OTHERWISE, IT RETURNS, IN THE FIRST 16 BITS OF THE 
RECEIVING FIELD, THE LENGTH IN BITS OF THE MESSAGE REMOVED. 
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4. IF <MESSAGE PART> ALREADY REFERENCES A MESSAGE, THEN THAT 
MESSAGE AREA IS RETURNED TO THE SYSTEM BEFORE THE REMOVE. 
THIS FEATURE IS CURRENTLY NOT IMPLEMENTED. 


So: IF THE <QUEUE PART> IS’ NOT ACTIVE, THE PROGRAM IS 
TERMINATED. 


PRAGMATICS: 


THE <REMOVE STATEMENT> TAKES THE MESSAGE THAT IS AT THE HEAD OF 
THE QUEUE, DELINKS IT FROM THAT QUEUE AND INSERTS A DESCRIPTOR 
POINTING TO THAT MESSAGE IN THE DATA DICTIONARY ENTRY 
REFERENCED BY THE <MESSAGE PART>. 


CARE MUST BE TAKEN, WHEN REMOVING A MESSAGE FROM A QUEUE, THAT 
THE QUEVE IS ACTIVE. WHEN IN DOUBT, TEST USING QUEUVE.INFO. 
(REMOVING A MESSAGE FROM AN INACTIVE QUEUE PRODUCES A RUN Ue 
ERROR AND TERMINATION BY "“INACTIVEQUEUE"). 


QUEVE.INFO STATEMENT 


CQUEUE.INFO STATEMENT> ::= QUEUE.INFO (<QUEUE.INFO RESULT>, 
<QUEVE PART> <INFO REQUEST>) 


<QUEUVE. INFO RESULT> ::= <ADDRESS GENERATOR> 
<INFO REQUEST> ::= EMPTY /, NULL /, SIZE /, PROCESSES 


<QUEVE PART> ::= <COMPLEX QUEUE IDENTIFIER> / <QUEUE ARRAY 
IDENTIFTER> 
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EXAMPLES: 


QUEVE.INFO (ANSWER, QUEVEID, SIZE) 


QUEUE.INFO (ANSWER, QUEUEARRAY (13), NULL); 


SEMANTICS: 


IF A <QUEVE ARRAY IDENTIFIER> IS USED (WITHOUT A SUBSCRIPT) THEN 
INFORMATION ABOUT ALL ELEMENTS OF THE QUEUE ARRAY IS RETURNED 
LEFT-JUSTIF IED IN <QUEUE.INFO RESULT>. OTHERWISE INFORMATION 
ABOUT THE SPECIFIED QUEVE IS RETURNED LEFT-JUSTIFIED IN 
<QUEVE.INFO RESULT>. 


1. IF <INFO REQUEST> EQUALS "SIZE", THE NUMBER OF MESSAGES IN 
THE QUEVE IS RETURNED AS BIT(1é). 7 


ee: IF <INFO REQUEST> EQUALS "PROCESSES", THE NUMBER OF 
PROCESSES ATTACHED TO THE QUEVE IS RETURNED AS BIT(le). 


3. IF <INFO REQUEST> EQUALS "NULL", A BOOLEAN VALUE IS 
RETURNED AS BIT (1). "TRUE" IS RETURNED IF THE QUEVE IS 
ACTIVATED. 


4. —IF <INFO REQUEST> IS EQUAL TO "EMPTY" THEN "TRUE" IS 
RETURNED IF THE QUEUE ELEMENT HAS NO MESSAGES. 


PRAGMATICS: 
E26: 
DECLARE 
A(20) BIT(le), 
B REMAPS A BIT(240) ; 


QUEUE Q.1(20); 
QUEVE.INFO £(B,Q.1, SIZE); 
PERFORMS THE SAME FUNCTION AS 
10; 


DO FOREVER: 
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QUEVE.INFO (A (1), Q.I (1), SIZE). 
IF (BUMP I) = 20 THEN UNDO; 


END; 
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MESSAGE... INFO STATEMENT 


<MESSAGE.INFO FUNCTION: : 
<MESSAGE PART>) 


MESSAGE.INFO (<MESSAGE. INFO 


<MESSAGE . INFO RESULT> <ADDRESS GENERATOR > 


<MESSAGE PART> ::= <COMPLEX MESSAGE IDENTIFIERD>D / 
<MESSAGE ARRAY IDENTIFIER> 


EXAMPLES: 
DECLARE 
01 MESSAGE .FIELD(5) BIT(41) 
,0O2 NULL.FIELD BIT(1) 
,02 SIZE.FIELD BIT(16) 
,02 ADDRESS.FIELD BIT(e4) 


»B REMAPS MESSAGE.FIELD BIT(205) 


MESSAGE MSG (10) ; 
MESSAGE. INFO (MESSAGE.FIELD (1), MSG (5) ); 


MESSAGE.INFO (B, MSG); 


SEMANTICS: 


THE <MESSAGE.INFO FUNCTION> RETURNS 3 VALUES. NULL.FIELD 
IMPLIES THAT THE MESSAGE IS NOT ALLOCATED. IF NULL.FIELD 
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RESULT>, 


Ho ofl 
ou 


THEN THE SIZE (IN BITS) OF THE MESSAGE AND THE ABSOLUTE ADDRESS 
OF THE MESSAGE ARE RETURNED IN SIZE.FIELD AND ADDRESS.FIELD 
RESPECTIVELY. THE NAMES OF THE FIELDS USED ABOVE ARE ARBITRARY. 
THE FORMAT OF THE FIELDS MUST BE THE SAME AS INDICATED ABOVE. 


IF <MESSAGE ARRAY IDENTIFITER> IS USED WITHOUT A SUBSCRIPT THEN 


THE RULES DEFINED FOR QUEUE.INFO WILL BE FOLLOWED; 


I.—E., AN 


ARRAY OF RESULTS WILL BE RETURNED. THIS HAS NOT BEEN FULLY 


IMPLEMENTED. 


DE .ALLOCATE STATEMENT 


SYNTAX: 
<DE.ALLOCATE STATEMENT> ::= DE.ALLOCATE (<COMPLEX MESSAGE 
IDENTIFIER>) 
EXAMPLES: 
DE.ALLOCATE (MSG (5) ); 
DE.ALLOCATE (MESSAGE.ID); 
SEMANTICS: 


THE BUFFER ASSOCIATED WITH THE <COMPLEX MESSAGE IDENTIFIER> 
DE-ALLOCATED. 


INSERT STATEMENT 


— — => ase a ese oon 


<INSERT STATEMENT> ::= INSERT (<SOURCE PART>, <QUEUE 
PART> <PRIORITY>) 


<SOURCE PART> ::= <COMPLEX MESSAGE IDENTIFIER> 
QUEUE PART> ::= <COMPLEX QUEUE IDENTIFIER> 


<PRIORITY> ::= , TOP / <EMPTY> 
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EXAMPLES: 

INSERT (MESSAGEID, QUEUEID) ; 

INSERT (MESSAGEID, QUEUEID, TOP); 

INSERT (MESSAGEARRAYID(1), QUEUEARRAYID(1)); 
SEMANTICS: 


1. THE <INSERT STATEMENT> CAUSES THE MESSAGE REFERENCED BY 
<SOURCE PART> TO BE LINKED INTO THE QUEUE REFERENCED BY 
<QUEVE PART>. 


2. IF <PRIORITY> EQUALS FALSE OR IS <EMPTY>, THE MESSAGE IS 
LINKED INTO THE TAIL OF THE QUEUE, OTHERWISE IT IS LINKED 
INTO THE HEAD OF THE QUEUE. 


PRAGMATICS: 


THE <INSERT STATEMENT> LINKS THE MESSAGE IDENTIFIED BY THE FIRST 
PARAMETER INTO THE QUEUE REFERENCED BY THE SECOND PARAMETER. IF 

<PRIORITY> IS NOT GIVEN, THE MESSAGE IS LINKED INTO THE END OF 

THE QUEUE, OTHERWISE IT IS LINKED INTO THE BEGINNING OF THE 

QUEUE. LINKING INTO THE END OF THE QUEUE WILL PRESERVE THE TIME 

ORDER OF THE MESSAGES IN THAT QUEUE; LINKING IT INTO THE 

BEGINNING INSURES THAT THAT MESSAGE WILL BE THE NEXT ONE 

REMOVED FROM THAT QUEVE, UNLESS ANOTHER MESSAGE IS LINKED INTO 

THE HEAD IN THE MEANTIME. 


IF THE QUEUE REFERENCED IS INACTIVE (NULL), AN INVALID CONDITION 
IS CREATED AND THE PROCESS WILL BE TERMINATED. 
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FLUSH STATEMENT 


<FLUSH STATEMENT> ::= FLUSH (<QUEUE PART>) 


QUEUE PART> ::= <COMPLEX QUEUE IDENTIFIER> / <QUEUE ARRAY 
IDENTIF IER> 


EXAMPLES: 


FLUSH (QUEUEID) ; 


FLUSH (QUEVEARRAYID(3)); 


SEMANTICS: 


1. THE <FLUSH STATEMENT> CAUSES ALL THE MESSAGES IN A QUEUE TO 
BE REMOVED FROM THE QUEUE. | 


2. IF THE <QUEUE PART> IS EMPTY, THE STATEMENT IS IGNORED. 
3. IF THE QUEVE INDICATED BY <QUEVE PART> IS NOT ACTIVE, THE 
PROCESS IS TERMINATED. 


PRAGMATICS: 


THE <FLUSH STATEMENT> CAUSES ALL MESSAGES IN THE QUEUE TO BE 
DISCARDED. THE QUEVE REMAINS ACTIVE. MESSAGES WHICH HAVE BEEN 
FLUSHED FROM THE QUEVE NO LONGER EXIST IN THE SYSTEM. 


(¢) 1973, 1974 Burroughs - DO NOT REPRODUCE 


26-20 


ENABLE . QUEVE STATEMENT 


<ENABLE.QUEUE STATEMENT> ::= ENABLE.QUEUE (<QUEUE 
DESIGNATOR>, <QUEUE NAME>) 


<QUEUE DESIGNATOR> ::= <QUEUE IDENTIFIER> / <QUEUE ARRAY 
IDENTIF IER>D 

<QUEVUE NAME> ::= <EXPRESSIOND 

EXAMPLES: 


DECLARE NAME .Q CHARACTER (10); 
QUEUE A, Q(10); <  ® i. a 


ENABLE .QUEVE (A, "MY.QUEUVE") ; 
NAME .Q := "HIS.QUEVE" CAT "1"; 


ENABLE .QUEVE (Q, NAME.Q); 


SEMANTICS: 


ENABLE .QUEVE INITIALIZES A QUEVE/QUEVUE ARRAY. IT IS NOT POSSIBLE 
TO INITIALIZE ONE ELEMENT OF A QUEVE ARRAY. <QUEUVE NAME> 

DEFINES THE PHYSICAL NAME OF THE QUEUE AND CANNOT BE LONGER 

THAN 10 CHARACTERS. 


QUEVES MUST BE INITIALIZED BEFORE THEY CAN BE USED IN <QUEUE 
FUNCTION>S AND <QUEVE STATEMENT>S (EXCEPT THE <QUEUE. INFO 
STATEMENT>). 


IF THE QUEVE BEING ENABLED EXISTS (1.E£. HAS BEEN ENABLED BY 
ANOTHER PROCESS) THEN THE CURRENT PROCESS IS ATTACHED TO IT 
ONLY IF THE NUMBER OF ELEMENTS IN THE QUEUE IS LESS THAN OR 


EQUAL TO THE ELEMENTS IN THE EXISTING QUEUE . OTHERWISE 
PROGRAM IS TERMINATED. 


DISABLE .QUEVUE STATEMENT 


ae ame aun ae a anh ane die oem em eee cue aED 2mm ame Gn ame am a ee em eee ww 


DISABLE .QUEUE STATEMENT> ::= DISABLE .QUEUE 
(<QUEVE DESIGNATOR>) 


<QUEVE DESIGNATOR> ::= <QUEVE IDENTIFIER / 
<QUEUE ARRAY IDENTIFIERD>D 


EXAMPLE 

DISABLE .QUEUE (A); 

DISABLE.QUEVE (Q); 

DISABLE .QUEVE (Q(3)); IS ERRONEOUS. 
SEMANTICS: 
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THE 


THE <DISABLE.QUEVE STATEMENT> DETACHES A PROCESS FROM A QUEUE. 
IF THE NUMBER OF PROCESSES ASSOCIATED WITH A QUEVE IS ZERO THEN 


THE QUEVE IS FLUSHED (IF REQUIRED) AND DE-ACTIVATED. 


IT IS NOT POSSIBLE TO DISABLE AN ELEMENT OF A QUEUE ARRAY. 


(C) 1973, 1974 Burroughs - DO NOT REPRODUCE 


e6-ee 


TRANSFER.MESSAGE STATEMENT 


<TRANSFER.MESSAGE STATEMENT> ::= TRANSFER.MESSAGE 
<SOURCE MESSAGE DESIGNATOR> TO <DESTINATION 
MESSAGE DESIGNATOR> 


<SOURCE MESSAGE DESIGNATOR>::= <EXPRESSION)> / 
<MESSAGE ADDRESS GENERATOR> 


<MESSAGE ADDRESS GENERATOR> ::= <COMPLEX MESSAGE IDENTIFIERD/ 
<COMPLEX MESSAGE IDENTIFIER>, <ADDRESS GENERATOR> 


<DESTINATION MESSAGE DESIGNATOR> ::= <ADDRESS GENERATOR> / 
<MESSAGE ADDRESS GENERATOR> 


EXAMPLES: 
- DECLARE 
O01 WORK.AREA REMAPS BASE CHAR (1000) 
,0e INBIT (100) 
,0e MSG. TRAN.NUM CHAR(3) 
MESSAGE M, FROM(3); 
TRANSFER.MESSAGE "002" TO M,MSG.TRAN.NUM; 
TRANSFER.MESSAGE FROM(1) TO M; 
SEMANTICS: 


TRANSFER.MESSAGE TRANSFERS DATA FROM <SOURCE MESSAGE DESIGNATOR> 
TO <DESTINATION MESSAGE DESIGNATOR>. SOURCE AND DESTINATION 
MESSAGE DESIGNATORS CAN BE DESCRIPTORS TO DATA INSIDE THE BASE 
- LIMIT OF PROCESS OR THEY CAN REFERENCE SPECIFIC FIELDS IN 
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MESSAGES. A SPECIFIC FIELD WITHIN A MESSAGE IS REFERENCED BY 
SPECIFYING THE MESSAGE (WITH A <COMPLEX MESSAGE IDENTIFIERD) 
AND A TEMPLATE (REMAPS BASE DATA ITEM) WHICH SPECIFIES THE PART 
OF THE MESSAGE TO BE ACCESSED. 


IF A MESSAGE IS TRANSFERRED TO ANOTHER: MESSAGE THEN PHYSICAL 
MOVEMENT OF MESSAGE DOES TAKE PLACE. THE <ADDRESS GENERATOR> 
FIELDS DETERMINE THE TYPE OF MESSAGE TRANSFER, (I.E. LEFT 
JUSTIF FED BLANK FILLED OR RIGHT JUSTIFIED ZERO FILLED). 


MCS COMMUNICATE STATEMENT 


MCS COMMUNICATE ::= MCS.COMMUNICATE (<RESULT PART>, 
<MESSAGE PART>, <QUEUE PART>) 


<RESULT PART> ::= <ADDRESS GENERATOR> 
<MESSAGE PART> ::= <EXPRESSION> 
<QUEVE PART> ::= <EMPTY> /, <QUEUE FILE DESIGNATOR> 


<QUEVE FILE DESIGNATOR> ::= <FILE DESIGNATOR / 
<FILE DESIGNATOR> <KEY PART> 


<FILE DESIGNATOR> ::= <FILE IDENTIFIERD / 
<SWITCH FILE IDENTIFIER> (<EXPRESSION>) 


<KEY PART> ::= [<ADDRESS GENERATOR) ] ; 
SEMANTICS: 


SEE THE B1700 MCS MANUAL FOR DETAILS. 
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PRAGMATICS: 


THE PURPOSE OF THE MCS.COMMUNICATE STATEMENT IS TO PROVIDE 


COMMUNICATION BETWEEN THE MCS (MESSAGE CONTROL SYSTEM) AND THE 
NETWORK CONTROLLER. 
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APPENDIX XI: SDL CODING SUGGESTIONS 


EACH PROGRAMMER HAS HIS OWN WAY OF DOING THINGS. WITHOUT 
STIFLING CREATIVITY, HOWEVER, IT IS DESIRABLE TO MAINTAIN SOME 
HOMOGENEITY IN CODING TECHNIQUES. THE ADVANTAGES ARE OBVIOUS: 
MORE UNDERSTANDABLE PROGRAMS AND EASIER MAINTENANCE (ESPECIALLY 
BY THOSE OTHER THAN THE PROGRAM~S AUTHOR) . 


ACCORDINGLY, THE FOLLOWING CODING GUIDELINES ARE SUGGESTED: 


1. USE THE "TOP DOWN" PROGRAMMING METHOD. THINK IN TERMS OF 
FUNCTIONS AND AVOID A LOT OF INLINE CODE. THIS METHOD OF 
CODING IS MUCH EASIER TO FOLLOW BECAUSE IT KEEPS PROCEDURES 
SHORTER. THE ARGUMENT FOR SHORT PROCEDURES PARALLELS. THE 
CASE AGAINST THE GO-TO: THE HUMAN SPAN OF ATTENTION IS 
SMALL--IF IT MUST RANGE OVER MANY PAGES OF CODING, THE 
READER MAY BECOME CONFUSED. YOU MIGHT GO SO FAR AS TO 
CRITICIZE ANY PROCEDURE THAT CONTAINS GREATER THEN N- ("N" 
MIGHT BE AS LOW AS 3) LEVELS OF DO-ENDS OR IS LONGER THAN 
1 PAGE. AFTER ALL, AREN-T WE PUSHING PROCEDURE-ORIENTED 
LANGUAGES? 


eC. MINIMIZE THE USE OF GLOBALS AND KEEP THE SCOPE OF A 
VART ABLE SMALL. OTHERWISE, YOU CAN RUN INTO SIDE EFFECTS 
THAT ARE DIFFICULT TO DEBUG. GLOBALS ARE SIMILAR TO GO TO2S 
IN THAT THEY DEMAND A BROAD ATTENTION SPAN. 


3. USE DEFINES INSTEAD OF INLINE LITERALS WHERE POSSIBLE. THIS 
MAKES CHANGES EASIER BECAUSE THEY ARE CONFINED TO THE 
DEFINE. LITERALS ARE NOT CROSS-REFERENCED. 

4. DON-T DEFINE YOUR OWN NAMES AS RESERVED WORDS. 

DEFINE F AS #FOREVERS; 
DO F; 
END; 


MAY BE CRYPTIC TO ANOTHER PROGRAMMER. 


5. BEWARE OF OVERUSE OF THE DEFINE: 
A. NESTING DEFINES TOO DEEPLY CAN CAUSE CONFUSION. 


B. A DEFINE THAT CONTAINS A GREAT DEAL OF CODING MIGHT 
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BETTER BE A PROCEDURE. 


oF CREATING YOUR OWN PRIVATE LANGUAGE BY USING DEFINES 
CAN DESTROY EASE OF UNDERSTANDING. 


DON-T USE CONSTRUCTS THAT OBSCURE THE PROGRAM-S 
MEANING--ESPECIALLY BEWARE OF UNSAFE CONSTRUCTS SUCH AS 
DESCRIPTOR, SAVE AND RESTORE. AVOID TRICKY CODING 
TECHNIQUES--CODE IN A STRAIGHT FORWARD MANNER. COMPLICATED 
CODE MEANS COMPLICATED DEBUGGING AND MAINTENANCE. 


SEPARATE PROCEDURES SO THEY ARE EASY TO LOOK AT--USE A FEW 
BLANK LINES OR A LINE OF ASTERISKS. 


CODE CONSISTENTLY AND INDENT CONSISTENTLY. FOR EXAMPLE: 


IF CONDITION THEN 
A+B; 
ELSE 
B+A; 
IF CONDITION THEN 
DO IT; 
A+B; 
C+D; 
END IT; 
ELSE 
DO WORK; 
EF; 
G+H; 
END WORK; 


IFS AND ELSES SHOULD BE IN THE SAME COLUMN. SO SHOULD DOS 
AND ENDS. 
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START TYPE DECLARATIONS IN THE SAME COLUMN THROUGHOUT THE 
PROGRAM. 


DECLARE O1 A, 

Oe BCD BIT(4), 

Oe NEXT.GUY BIT(16), 
Oe E BIT(1), 

Oe F, 

O03 GHIJK BIT(10); 


IS HARDER TO READ THEN 


DECLARE 
O01 A, 
Oe BCD BIT(4), 
Oe NEXT .GUY BIT(16), 
Ue; '& BIT (1), 
Oe F, 


03 GHIUK  BIT(10): 


ANOTHER SUGGESTION IS TO INDENT PROCEDURES AS THE LEXIC 
LEVEL INCREASES. 


A MOTHERHOOD AND APPLE PIE HINT: USE DESCRIPTIVE NAMES. 
DON-T USE CRYPTIC ABBREVIATIONS OR "ALMOST CORRECT " 
SPELLINGS: RECRD FOR RECORD, ETC. 


» NAME ALL DO GROUPS. 
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ACCEPT STATEMENT 

ACCESS FILE HEADER STATEMENT 
ACCESS FILE INFORMATION 
ACCESS OVERLAY 


ACCESS-FPB 


ADDRESS AND VALUE PARAMETERS 
ADDRESS GENERATING FUNCTIONS 
ADDRESS GENERATORS 

ADDRESS MODIFIER 

ADDRESS VARIABLES 

ALL .AREAS.AT.OPEN 


ALLOCATE FUNCTION 
AMPERSAND OPTION 


APPENDIX I: 


APPENDIX 
APPENDIX 
APPEND] X 
APPENDIX 
APPEND! X 
APPENDIX 
APPENDIX 
APPENDIX 
APPENDIX 
APPENDIX 
AREA.BY.CYLINDER 


ARITHMETIC OPERATORS 


ARRAY 


ARRAY PAGE TYPE STATEMENT 

ASSIGNMENT STATEMENT 

ASSIGNMENT STATEMENTS AND EXPRESSIONS 
ASSIGNOR 


ee 
III: 
IV: 


V; 
VI: 
VII: 
VIII: 


BASE REGISTER 


BASIC COMPONENTS OF THE SDL LANGUAGE 
BASIC STRUCTURE OF THE SDL PROGRAM 
BINARY CONVERSION 


BIT STRING 


BUFFERS 


BUMP 
BUMP 


CALLING ABILITY 

CASE EXPRESSION 

CASE STATEMENT 

CHANGE STATEMENT (FILE ATTRIBUTE STATEMENT ) 
CHARACTER STRING | 


CHECK OPTION 


CLEAR STATEMENT 
CLOSE STATEMENT 
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INDEX 


SYNTAX OF THE SDL LANGUAGE 
RESERVED AND SPECIAL WORDS 

SDL CONTROL CARD OPTIONS 
PROGRAMMING OPTIMIZATION 
IX: SDL MONITORING FACILITY 
SYSTEM CONTROL CARDS 
CONDITIONAL COMPILATION 
SDL PROGRAMMING TECHNIQUES 

THE SDL RECOMPILATION FACILITY 
X: BURROUGHS B1700 DATA COMMUNICATIONS SDL 
XI: SDL CODING SUGGESTIONS 
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CODE OPTION 

CODE OPTION 
COMMUNICATE 
COMPILE CARD INFO 
CONCATENAT ION 


CONDITIONAL COMPILATION 
CONDITIONAL EXPRESSION 


CONSOLE SWITCHES 


INDEX (CONT) 


CONTROL CARD OPTIONS FOR B1700 
CONTROL CARD OPTIONS FOR B5500 


CONTROL. OPTION 
CONTROL OPTION 
CONTROL STACK BITS 
CONTROL STACK TOP 
CONVERT 

COROUTINE STATEMENT 
CREATE MASTER OPTION 
CSSIZE OPTION 


DATA ADDRESS 

DATA TYPES 

DATE FUNCTION 
DC.WRITE STATEMENT 
DCSDL DECLARATIONS 
DCSDL EXTENSIONS 
DCSDL FUNCTIONS 

DCSDL STATEMENTS 
DE.ALLOCATE STATEMENT 
DEBL ANK 

DEBUG OPTION 

DEBUG OPTION 

DECIMAL CONVERSION 
DECLARATION STATEMENT 


DECLARE STATEMENT 
DECREMENT | 


DEFINE INVOCATION 
DEFINE STATEMENT 
DELIMITED TOKEN ~ 
DESCRIPTORS 

DETAIL OPTION 
DETAIL OPTION 
DEVICE 

DEVICE 

DISABLE. INTERRUPTS 


DISABLE .QUEVE STATEMENT 


DISK ALLOCATION 

DISK ALLOCATION 

DISK DRIVE ASSIGNMENT 
DISK FILE 


DISPATCH 
DISPLAY BASE 
DISPLAY STATEMENT 
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DO GROUPS 

DOUBLE OPTION 

DOUBLE OPTION 

DUMP 

DUMP FOR ANALYSIS 
DYNAMIC DECLARATIONS 
DYNAMIC FILE CHANGE 
DYNAMIC MEMORY BASE 
DYNAMICSIZE OPTION 


ENABLE. INTERRUPTS 
ENABLE .QUEUVE STATEMENT 
END.OF .PAGE.ACTION 
END.OF .PAGE.ACTION 
ERROR COMMUNICATE 
ESSIZE OPTION 


EU. ASSIGNMENT 

EU.ASSIGNMENT 

EVALUATION STACK TOP 

EXECUTABLE STATEMENT 

EXECUTABLE STATEMENTS 

EXECUTE 

EXECUTE-FUNCTION STATEMENT 
EXECUTE-PROCEDURE STATEMENT 
EXPAND. DEF INES 

EXPRESSIONS 

FETCH 

FETCH.COMMUNICATE.MSG.PTR 

FIG 1. PROCEDURE NESTING 

FIG 2. SCOPE AND CALLING ABILITY 
FIG 3. OPERATOR PRECEDENCE TABLE 


FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


FILE DECLARATIONS 
FLUSH STATEMENT 
FORMALCHECK 
FORMALCHECK 
FORMALCHECK OPTION 
FORWARD DECLARATION 
FREEZE PROGRAM 

GENERAL ORIENTATION: THE METALANGUAGE 
GROUP TERMINATION STATEMENT 
HALT 

HARDWARE MONITOR 
HARDWARE MONITOR 

HASH CODE 

HEX: OPTION 

HEX. SEQUENCE. NUMBER 
1/0 CONTROL STATEMENTS 
IDENTIFIER 

IDENTIFIER 

IF STATEMENT 

INDEXING 
INITIALIZE.VECTOR 
INSERT STATEMENT 
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INTERPRETER OPTION 
INTERPRETER OPTION 
INTERROGATE INTERRUPT STATUS 
INTRINSIC OPTION 

INTRINSICS 

LABEL 


LENGTH 
LEXICOGRAPHIC LEVEL 
LIMIT REGISTER 

LIST OPTION 


LISTALL OPTION 
LISTALL OPTION 
LOCATION 
LOCK © 


LOGICAL OPERATORS 

MAKE .DESCRIPTOR 

MAP OPTION 

MCS COMMUNICATE STATEMENT 
MEMORY SIZE 

MERGE OPTION 

MESSAGE DECLARATION 
MESSAGE LINKAGE MECHANISM 
MESSAGE.INFO STATEMENT 
METASYMBOLS OF BNF 

MODE 

MODE | 

MODIFY INSTRUCTION 
MONITOR 

MONITOR FILE 

MULTI PACK 


NAME OF DAY 

NAME STACK TOP 
NESTING 

NESTING LEVEL 

NEW OPTION 

NEW OPTION 

NEXT TOKEN 
NEXT-PREVIOUS. ITEM 
NO OPTION 

NO OPTION 

NO SEQ 

NO SEQ OPTION 
NO.DUPLICATES OPTION 
NO.SOURCE .OPTION 
NODUPLICATES 
NON-STRUCTURED DECLARATIONS 
NSSIZE OPTION 
NSSIZE OPTION 

NULL) STATEMENT 
NUMBER .OF .STATIONS 
OPEN OPTION 
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OPEN STATEMENT 

OPERATOR PRECEDENCE TABLE 
OVERLAY 

PACK.ID 

PACK.ID 

PAGE OPTION 

PAGE OPTION 

PAGED ARRAY DECLARATIONS 
PARITY SPECIFICATION 
PARITY .ADDRESS 

POLISH NOTATION 

PPROF ILE 

PPSSIZE OPTION 


PREVIOUS. ITEM 

PRIMARY ELEMENTS OF THE EXPRESSION 
PROCEDURE BODY 
PROCEDURE ENDING 
PROCEDURE HEADING 
PROCEDURE NESTING 
PROCEDURE STATEMENT 
PROCEDURE STATEMENT 
PROCEDURE, TYPED 

PROF ILE 

PROGRAMMING OPTIMIZATION 
PROGRAMMING TECHNIQUES 
QUEUE DECLARATIONS 
QUEUE .FAMILY.SIZE 
QUEUE. INFO STATEMENT 
READ CASSETTE 

READ STATEMENT 

RECEIVE STATEMENT 
RECOMPILATION FACILITY 
RECOMPILE OPTION 
RECORD SIZE 

RECORD SIZE 

REEL NUMBER 

REEL NUMBER 

RE INSTATE 

RELATIONAL OPERATORS 
REMAPPING 

REMAPPING 

REMOTE KEY 

REMOVE STATEMENT 
REPLACE OPERATORS 
REPLACE, DESTRUCTIVE 
REPLACE, NON-DESTRUCTIVE 
RESERVED WORDS 


RESTORE 

RETURN STATEMENT 
REVERSE STORE 
RUN-TIME MONITOR 
SAVE 

SAVE 
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SAVE STATE 

SCOPE 

SCOPE OF PROCEDURES 
‘SEARCH SERIAL LIST 
SEARCH STATEMENT 
SEARCH.LINKED.LIST 
SEARCH.SDL.STACKS 
SEEK STATEMENT 
SEGMENT STATEMENT 
SEND STATEMENT 

SEQ OPTION 

SEQ OPTION 
SEQUENCE . NUMBER 
SINGLE SPACE OPTION 


SIZE OPTION 
SIZE OPTION 
SKIP STATEMENT 


SORT .SEARCH 

SORT .STEP . DOWN 
SORT . SWAP 

SORT . UNBLOCK 
SORTER.STATION 

SPACE STATEMENT 

SPO INPUT PRESENT 

STOP STATEMENT 
STRUCTURED DECLARATIONS 
SUBBIT AND SUBSTR 


SUPPRESS OPTION 
SWAP 

SWITCH FILE DECLARATIONS 
SYNTAX OF THE SDL LANGUAGE 
SYSTEM CONTROL CARDS FOR B1700 
SYSTEM CONTROL CARDS FOR B5500 
THAW PROGRAM 

THREAD. VECTOR 

TIME FUNCTION 

TODAY 2S. DATE 

TRACE | . 
TRANSFER.MESSAGE STATEMENT 
UNARY OPERATOR 

UPDATE. OPTION 

USE INPUT BLOCKING 

USE INPUT BLOCKING 

USE STATEMENT 

VALUE DESCRIPTOR 

VALUE GENERATING FUNCTIONS 
VALUE VARIABLES 

VARIABLE DATA FIELDS 

VARIABLE RECORD 


VOID OPTION | 
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VOID OPTION 
VSSIZE OPTION 
VSSIZE OPTION 
WAIT STATEMENT 
WORK FILE 

WRITE STATEMENT 
XMAP OPTION 


XREF 
XREF .ONLY 
ZIP STATEMENT 
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